home *** CD-ROM | disk | FTP | other *** search
/ Zoom 2 / Zoom - Release 2 (1996)(Active Software)[!].iso / games / misc / profootball / pro-football.amos / pro-football.amosSourceCode < prev    next >
AMOS Source Code  |  1995-09-11  |  58KB  |  2,361 lines
  1. ' Pro-Football 1.1 
  2. ' (C) Copyright Ali Prior 1995 
  3.  
  4. Set Buffer 150
  5. Dim TDP(25,25),TDPTS(25,25),TDG(25,25),TDH1(25,2),TDH2(25,2),TDH3(25,2),TDA1(25,2),TDA2(25,2),TDA3(25,2),TDM1(25,25),TDM2(25,25),FM$(25,25)
  6. Global TDP(),TDPTS(),TDG(),TDH1(),TDH2(),TDH3(),TDA1(),TDA2(),TDA3(),TDM1(),TDM2(),FM$()
  7. Dim B$(3),L$(4),T$(5),M$(40),LG$(25),TEAMS(25),TEAM$(25,25),X1(29),Y1(29),T1FXL$(22,100),T2FXL$(22,100),FXLN$(22),POOLSTAT(100),MIL(22),BL$(12),CL$(12),PM$(3)
  8. Global B$(),L$(),TITLE$,T$(),M$(),LG$(),EX,TEAMS(),TEAM$(),TEAMMEN,EMOD,X1(),Y1(),NAMES,CURRL,T1FXL$(),T2FXL$(),FXLN$(),MLISTEXIST,TEAMA$,TEAMB$,POOLSTAT(),MIL(),PLEXIST,LIST,BL$(),CL$(),ZEB,NOCHK,ESC,MTCH,PM$(),ALTERFLAG
  9. Dim RESA$(25),RESB$(25),RES(25),SCORE1(25),SCORE2(25),LGPOS(25,25),LP$(25),LPTS(25),T1LGP(25,100),T2LGP(25,100),MLG1(25,100),MLG2(25,100)
  10. Global RESA$(),RESB$(),RES(),SCORE1(),SCORE2(),LGPOS(),LP$(),LPTS(),T1LGP(),T2LGP(),MLG1(),MLG2(),LIST
  11. Dim T1M1(22,100),T1M2(22,100),T2M1(22,100),T2M2(22,100),GOALS1(22,2),GOALS2(22,2),PRED(100),ST(100),PREDNO(100),PRED$(100),SHOCK(40),SHOCK$(40),ID(22)
  12. Global T1M1(),T1M2(),T2M1(),T2M2(),GOALS1(),GOALS2(),PRED(),ST(),PRED$(),PREDNO(),SHOCK(),SHOCK$(),ID2$,FLOADED,ID()
  13. Dim LGA(100),LGB(100),R(20),ODDS#(10),D$(15)
  14. Global LGA(),LGB(),ADN,R(),ODDS#(),D$()
  15. Make Icon Mask 
  16. SETUP
  17. DEMO
  18. Sam Play 1
  19. MAINMENU
  20. Procedure DEMO
  21. D$(1)="Would you buy a new car without taking it for a test drive first?"
  22. D$(2)="Of course not, you might not like it!"
  23. D$(4)="This version of Pro-Football has been designed to let you 'test-drive' the software"
  24. D$(5)="before you part with any of that hard-earned cash."
  25. D$(7)="If after having a look at Pro-Football, you decide that it's not for you, then just"
  26. D$(8)="format the disk and use it for something else - If on the other hand you like what "
  27. D$(9)="you see (as I hope you will!), then you can buy in 100% confidence, safe in the"
  28. D$(10)="knowledge that you know what you're getting ..."
  29. DTEXT
  30. D$(1)="So what are you getting?"
  31. D$(3)="Pro-Football has been designed to be an exceptionally quick & easy to use, yet"
  32. D$(4)="powerful, package that can generate predictions for use on both football pools"
  33. D$(5)="and fixed odds betting."
  34. D$(7)="Every aspect of the program has been created with the user in mind - something"
  35. D$(8)="that is sadly lacking in many programs these days."
  36. D$(10)="OK, so what does this demo version consist of ? ...."
  37. DTEXT
  38. D$(1)="INTELLIBET, Pro-Football's artificial intelligence system, does need to be fully"
  39. D$(2)="up to date in order for accurate predictions to be made."
  40. D$(4)="The full version of the program comes with data of all matches up to the day"
  41. D$(5)="of despatch - unfortunately, this is not possible with the demo version, as you"
  42. D$(6)="could be reading this weeks, months or years after the disk was created!"
  43. D$(8)="There is no way round this (other than make you sit around entering months worth"
  44. D$(9)="of results!), so really you are NOT going to be able to make useable predictions"
  45. D$(10)="with this version - sorry!"
  46. DTEXT
  47. D$(1)="What this program WILL let you do, is try out every part of Pro-Football."
  48. D$(3)="You will be able to go through the process of creating fixture lists, making"
  49. D$(4)="predictions, and entering results - the only thing is that the predictions won't"
  50. D$(5)="be useable (so don't go betting your life savings on them!), and the results won't"
  51. D$(6)="be stored for future use (there wouldn't be much point if large amounts of previous"
  52. D$(7)="data are missing)."
  53. D$(9)="After using the demo, you will have found out all you need to know about Pro-Football,"
  54. D$(10)="you will have learned how to use it, and it won't have cost you a penny!"
  55. DTEXT
  56. D$(1)="Full instructions are contained in the User-Guide (the main menu is coming up next,"
  57. D$(2)="hold down the right mouse button and select User-Guide from the pull down menu at the"
  58. D$(3)="top of the screen)."
  59. D$(5)="Details on how to get your hands on the full, unrestricted version with a completely"
  60. D$(6)="up to date set of results are also given in the User-Guide."
  61. D$(8)="I hope you enjoy using this demo - should you run into any difficulties whatsoever, or"
  62. D$(9)="would like to comment on any aspect of the program, then please don't hesitate to get"
  63. D$(10)="in touch - Ali Prior, 10 Lovell Park Heights, Leeds, LS7 1DP."
  64. DTEXT
  65. End Proc
  66. Procedure SETUP
  67. Make Icon Mask 
  68. Screen Open 0,30,30,2,Lowres : Cls 0
  69. Load Iff "Pro-Football:Graphics/pfscreen",1
  70. Get Fonts 
  71. For R=1 To 400
  72. D$=Lower$(Font$(R)) : C$=Left$(D$,4) : HG=Val(Mid$(D$,30,4))
  73. If C$="pers"
  74.    If HG=8
  75.       PERSONAL=R : Goto NL
  76.    End If 
  77. End If 
  78. Next R
  79. NL:
  80. Set Font PERSONAL
  81. '
  82. T$(1)="Won't be long ..." : HELPBOX
  83. REQ[3,"Pro-Football","Version 1.1 - DEMO","(C) Copyright Ali Prior 1995","All Rights Reserved",0,"","",""]
  84.  
  85. Set Input 13,10
  86. Open In 1,"Pro-Football:data/leagues"
  87. For R=1 To 25
  88. Input #1,LG$(R)
  89. Input #1,TEAMS(R)
  90. For N=1 To 25
  91. Input #1,TEAM$(R,N)
  92. Input #1,FM$(R,N)
  93. Next N
  94. Next R
  95. Close 1
  96. DCODE
  97.  
  98. '
  99. For L=1 To 20
  100. FXLN$(L)="Sub-List"+Str$(L)
  101. Next L
  102. FXLN$(21)="Main List"
  103. FXLN$(22)="Pools list"
  104.  
  105. TITLE$="Welcome!" : TITLE
  106.  
  107. T$(1)="Welcome to Pro-Football."
  108. T$(2)="Click on OK to continue, or HELP for help!"
  109. HELPBOX
  110. REQ[3,"Pro-Football","Version 1.1 - DEMO","(C) Copyright Ali Prior 1995","All Rights Reserved",2,"OK","HELP",""]
  111. RC=Param
  112. If RC=1 Then HLP[1]
  113.  
  114. End Proc
  115. Procedure PRED
  116.  
  117.  
  118. If MLISTEXIST=1 Then Goto CP
  119. D$(1)="Predictions are made for each of the matches on your 'Fixture Lists'."
  120. D$(3)="You haven't created any fixture lists yet - you need to go back to the main"
  121. D$(4)="menu and select the 'Fixtures' option."
  122. D$(6)="In the full version it is possible to load a fixture list that you created"
  123. D$(7)="during a previous session."
  124. D$(9)="If you haven't already done so, it would be a good idea to read the User-Guide."
  125. D$(10)="This can be reached through the pull down menu (Right Mouse Button) on the Main Menu."
  126. DTEXT
  127. Pop Proc
  128.  
  129. CP:
  130.    'calc league positions 
  131. TITLE$="Predict" : TITLE
  132. T$(1)="Just sorting a few things out ..."
  133. HELPBOX
  134. REQ[3,"","Please Wait ...","","",0,"","",""]
  135.  
  136.  
  137.  
  138.    For L=1 To 22
  139.       For T=1 To 25
  140.          LP$(T)=TEAM$(L,T)
  141.          LPTS(T)=TDPTS(L,T)
  142.       Next T
  143.       SRT:
  144.       FLAG=0
  145.       For T=1 To TEAMS(L)-1
  146.          If LPTS(T)>=LPTS(T+1) Then Goto NSORTLOOP
  147.          TLP$=LP$(T) : TLPTS=LPTS(T)
  148.          LP$(T)=LP$(T+1) : LPTS(T)=LPTS(T+1)
  149.          LP$(T+1)=TLP$ : LPTS(T+1)=TLPTS
  150.          FLAG=1
  151.          NSORTLOOP:
  152.       Next T
  153.       If FLAG=1 Then Goto SRT
  154.       For T=1 To TEAMS(L)
  155.          For S=1 To TEAMS(L)
  156.             If TEAM$(L,T)=LP$(S) Then LGPOS(L,T)=S : Rem Lprint LP$(S),LGPOS(L,T) 
  157.  
  158.          Next S
  159.       Next T
  160.       NL:
  161.    Next L
  162. RESTARTIT:
  163. TITLE$="Predict" : TITLE
  164. T$(1)="Which list do you want to obtain predictions for?" : T$(4)="HELP AVAILABLE" : HELPBOX
  165.    LIST=0
  166.  
  167.    M$(1)="Main List" : ID(1)=1
  168.    If PLEXIST=1 Then M$(2)="Pools List" : ID(2)=2
  169.    If PLEXIST=0 Then M$(2)="Pools List N/A" : ID(2)=2
  170.    ID=3
  171.    For L=1 To 20
  172.       If Left$(FXLN$(L),8)="Sub-List" Then Goto SI
  173.       M$(ID)=FXLN$(L)
  174.       ID(ID)=L+2
  175.       Inc ID
  176.    SI:
  177.    Next L
  178.    DM:
  179.    M$(ID)="Exit This Menu"
  180.    MEN[ID,5]
  181.    O=Param
  182.  
  183.    If O=ID Then Pop Proc
  184.    LIST=O
  185.    If LIST=1 Then LIST=21
  186.    If LIST=2 Then LIST=22
  187.    If LIST<21 Then LIST=LIST-2
  188.    If MIL(LIST)=0 Then HELPBOX : REQ[3,"","There are no fixtures in this list!","Click on OK, then select another","",1,"OK","",""] : Goto DM
  189.  
  190.  
  191. T$(1)="Thinking ..." : HELPBOX
  192. REQ[3,"","Please Wait ...","","",0,"","",""]
  193.    PFX
  194.  
  195.    For S=1 To 40
  196.    SHOCK(S)=0
  197.    Next S
  198.    SH=1
  199.    For S=1 To 100
  200.    ST(S)=0
  201.   Next S
  202.  
  203.    For M=1 To MIL(LIST)
  204.  
  205.       HMV=0 : AWV=0 : DRV=0
  206.  
  207.       'leaguetest
  208.       If MLG1(LIST,M)<MLG2(LIST,M) Then VERDICT=1 : LTVOTE=1 : HMV=HMV+8 : ST=8 : Goto GTVERDICT
  209.       If MLG1(LIST,M)>MLG2(LIST,M) Then VERDICT=2 : LTVOTE=2 : AWV=AWV+8 : ST=8 : Goto GTVERDICT
  210.       LD=T1LGP(LIST,M)-T2LGP(LIST,M)
  211.       If LD<=-8 Then VERDICT=1 : HMV=HMV+8 : LTVOTE=1 : ST=8 : Goto GTVERDICT
  212.       If LD<=-2 Then LTVOTE=1 : HMV=HMV+2 : Goto DLT
  213.       If LD<=1 Then LTVOTE=4 : HMV=HMV+1 : DRV=DRV+1 : Goto DLT
  214.       If LD<=4 Then LTVOTE=3 : DRV=DRV+2 : Goto DLT
  215.       If LD<=7 Then LTVOTE=5 : DRV=DRV+1 : AWV=AWV+1 : Goto DLT
  216.       If LD>7 Then LTVOTE=2 : AWV=AWV+2 : Goto DLT
  217.       DLT:
  218.  
  219.       'diad test 
  220.       HW=1 : AW=2 : HD=3 : HL=4 : AL=5 : AD=6
  221.       LR1=T1M2(LIST,M) : LR2=T2M2(LIST,M)
  222.       PR1=T1M1(LIST,M) : PR2=T2M1(LIST,M)
  223.       LT=LTVOTE
  224.       If LT=4 Then LT=1
  225.       If LT=5 Then LT=2
  226.       If T1M2(LIST,M)=1 or T1M2(LIST,M)=3 or T1M2(LIST,M)=4 Then LM1=1
  227.       If T1M2(LIST,M)=2 or T1M2(LIST,M)=5 or T1M2(LIST,M)=6 Then LM1=2
  228.       If T2M2(LIST,M)=1 or T2M2(LIST,M)=3 or T2M2(LIST,M)=4 Then LM2=1
  229.       If T2M2(LIST,M)=2 or T2M2(LIST,M)=5 or T2M2(LIST,M)=6 Then LM2=2
  230.  
  231.       If T1M1(LIST,M)=1 or T1M1(LIST,M)=3 or T1M1(LIST,M)=4 Then PM1=1
  232.       If T1M1(LIST,M)=2 or T1M1(LIST,M)=5 or T1M1(LIST,M)=6 Then PM1=2
  233.       If T2M1(LIST,M)=1 or T2M1(LIST,M)=3 or T2M1(LIST,M)=4 Then PM2=1
  234.       If T2M1(LIST,M)=2 or T2M1(LIST,M)=5 or T2M1(LIST,M)=6 Then PM2=2
  235.  
  236.  
  237.  
  238.       'home played away, away played home
  239.       HPAAPH:
  240.       If LM1<>2 or LM1<>1 Then Goto HPHAPA
  241.  
  242.       If LT=1
  243.          Restore HPAAPHHW
  244.          For R=1 To 3
  245.             Read HTLM,DFC,UN,WC
  246.             If LR1=HTLM
  247.                If LR2<>UN
  248.                   FC=DFC : Goto GTDIAD
  249.                End If 
  250.                If LR2=UN
  251.                   FC=WC : Goto GTDIAD
  252.                End If 
  253.             End If 
  254.          Next R
  255.       End If 
  256.       If LT=3
  257.          Restore HPAAPHHD
  258.          For R=1 To 5
  259.             Read HTLM,DFC,UN,WC
  260.             If LR1=HTLM
  261.                If LR2<>UN
  262.                   FC=DFC : Goto GTDIAD
  263.                End If 
  264.                If LR2=UN
  265.                   FC=WC : Goto GTDIAD
  266.                End If 
  267.             End If 
  268.          Next R
  269.       End If 
  270.       If LT=2
  271.          Restore HPAAPHHL
  272.          For R=1 To 9
  273.             Read HTLM,DFC,UN,WC
  274.             If LR1=HTLM
  275.                If LR2<>UN
  276.                   FC=DFC : Goto GTDIAD
  277.                End If 
  278.                If LR2=UN
  279.                   FC=WC : Goto GTDIAD
  280.                End If 
  281.             End If 
  282.          Next R
  283.       End If 
  284.  
  285.       HPAAPHHW:
  286.       Data AW,1,HW,3
  287.       Data AD,1,HW,3
  288.       Data AL,1,HW,1
  289.       HPAAPHHD:
  290.       Data AW,1,HW,3
  291.       Data AD,1,HW,1
  292.       Data AL,1,HW,1
  293.       Data AL,1,HD,5
  294.       Data AL,1,HL,5
  295.       HPAAPHHL:
  296.       Data AW,2,HW,3
  297.       Data AW,2,HD,2
  298.       Data AW,2,HL,3
  299.       Data AD,3,HW,2
  300.       Data AD,3,HD,2
  301.       Data AD,3,HL,D
  302.       Data AL,1,HW,2
  303.       Data AL,1,HD,3
  304.       Data AL,1,HL,1
  305.  
  306.  
  307.       HPHAPA:
  308.       If LM1<>1 or LM2<>2 Then Goto BPH
  309.       If LT=1
  310.          Restore HPHAPAHW
  311.          For R=1 To 3
  312.             Read HTLM,DFC,UN,WC
  313.             If LR1=HTLM
  314.                If LR2<>UN
  315.                   FC=DFC : Goto GTDIAD
  316.                End If 
  317.                If LR2=UN
  318.                   FC=WC : Goto GTDIAD
  319.                End If 
  320.             End If 
  321.          Next R
  322.       End If 
  323.       If LT=3
  324.          Restore HPHAPAHD
  325.          For R=1 To 7
  326.             Read HTLM,DFC,UN,WC
  327.             If LR1=HTLM
  328.                If LR2<>UN
  329.                   FC=DFC : Goto GTDIAD
  330.                End If 
  331.                If LR2=UN
  332.                   FC=WC : Goto GTDIAD
  333.                End If 
  334.             End If 
  335.          Next R
  336.       End If 
  337.       If LT=2
  338.          Restore HPHAPAHL
  339.          For R=1 To 9
  340.             Read HTLM,DFC,UN,WC
  341.             If LR1=HTLM
  342.                If LR2<>UN
  343.                   FC=DFC : Goto GTDIAD
  344.                End If 
  345.                If LR2=UN
  346.                   FC=WC : Goto GTDIAD
  347.                End If 
  348.             End If 
  349.          Next R
  350.       End If 
  351.  
  352.       HPHAPAHW:
  353.       Data HW,1,HW,1
  354.       Data HD,1,HW,1
  355.       Data HL,1,HW,1
  356.       HPHAPAHD:
  357.       Data HW,1,AW,1
  358.       Data HW,1,AD,4
  359.       Data HW,1,AL,4
  360.       Data HD,3,AW,1
  361.       Data HD,3,AD,3
  362.       Data HD,3,AL,3
  363.       Data HL,1,HW,1
  364.       HPHAPAHL:
  365.       Data HW,1,AW,1
  366.       Data HW,1,AD,3
  367.       Data HW,1,AL,3
  368.       Data HD,3,AW,2
  369.       Data HD,3,AD,3
  370.       Data HD,3,AL,2
  371.       Data HL,2,AW,2
  372.       Data HL,2,AD,3
  373.       Data HL,2,AL,2
  374.  
  375.       BPH:
  376.       If LM1<>1 or LM2<>1 Then Goto BPA
  377.       If LT=1
  378.          Restore BPHHW
  379.          For R=1 To 3
  380.             Read HTLM,DFC,UN,WC
  381.             If LR1=HTLM
  382.                If LR2<>UN
  383.                   FC=DFC : Goto GTDIAD
  384.                End If 
  385.                If LR2=UN
  386.                   FC=WC : Goto GTDIAD
  387.                End If 
  388.             End If 
  389.          Next R
  390.       End If 
  391.       If LT=3
  392.          Restore BPHHD
  393.          For R=1 To 9
  394.             Read HTLM,DFC,UN,WC
  395.             If LR1=HTLM
  396.                If LR2<>UN
  397.                   FC=DFC : Goto GTDIAD
  398.                End If 
  399.                If LR2=UN
  400.                   FC=WC : Goto GTDIAD
  401.                End If 
  402.             End If 
  403.          Next R
  404.       End If 
  405.       If LT=2
  406.          Restore BPHHL
  407.          For R=1 To 7
  408.             Read HTLM,DFC,UN,WC
  409.             If LR1=HTLM
  410.                If LR2<>UN
  411.                   FC=DFC : Goto GTDIAD
  412.                End If 
  413.                If LR2=UN
  414.                   FC=WC : Goto GTDIAD
  415.                End If 
  416.             End If 
  417.          Next R
  418.       End If 
  419.  
  420.       BPHHW:
  421.       Data HW,1,HW,1
  422.       Data HD,1,HW,1
  423.       Data HL,1,HW,1
  424.       BPHHD:
  425.       Data HW,1,HW,1
  426.       Data HW,1,HD,3
  427.       Data HW,1,HL,3
  428.       Data HD,3,HW,2
  429.       Data HD,3,HD,1
  430.       Data HD,3,HL,3
  431.       Data HL,2,HW,1
  432.       Data HL,2,HD,3
  433.       Data HL,2,HL,3
  434.       BPHHL:
  435.       Data HW,1,HW,1
  436.       Data HD,3,HW,2
  437.       Data HD,3,HD,3
  438.       Data HD,3,HL,2
  439.       Data HL,2,HW,2
  440.       Data HL,2,HD,3
  441.       Data HL,2,HL,2
  442.  
  443.  
  444.       BPA:
  445.       If LM1<>2 or LM2<>2 Then Goto PROB
  446.       If LT=1
  447.          Restore BPAHW
  448.          For R=1 To 3
  449.             Read HTLM,DFC,UN,WC
  450.             If LR1=HTLM
  451.                If LR2<>UN
  452.                   FC=DFC : Goto GTDIAD
  453.                End If 
  454.                If LR2=UN
  455.                   FC=WC : Goto GTDIAD
  456.                End If 
  457.             End If 
  458.          Next R
  459.       End If 
  460.       If LT=3
  461.          Restore BPAHD
  462.          For R=1 To 9
  463.             Read HTLM,DFC,UN,WC
  464.             If LR1=HTLM
  465.                If LR2<>UN
  466.                   FC=DFC : Goto GTDIAD
  467.                End If 
  468.                If LR2=UN
  469.                   FC=WC : Goto GTDIAD
  470.                End If 
  471.             End If 
  472.          Next R
  473.       End If 
  474.       If LT=2
  475.          Restore BPAHL
  476.          For R=1 To 9
  477.             Read HTLM,DFC,UN,WC
  478.             If LR1=HTLM
  479.                If LR2<>UN
  480.                   FC=DFC : Goto GTDIAD
  481.                End If 
  482.                If LR2=UN
  483.                   FC=WC : Goto GTDIAD
  484.                End If 
  485.             End If 
  486.          Next R
  487.       End If 
  488.  
  489.       BPAHW:
  490.       Data AW,1,AW,3
  491.       Data AD,1,AW,3
  492.       Data AL,1,AW,3
  493.       BPAHD:
  494.       Data AW,2,AW,1
  495.       Data AW,2,AD,1
  496.       Data AW,2,AL,2
  497.       Data AD,3,AW,2
  498.       Data AD,3,AD,2
  499.       Data AD,3,AL,2
  500.       Data AL,1,AW,1
  501.       Data AL,1,AD,3
  502.       Data AL,1,AL,3
  503.       BPAHL:
  504.       Data AW,2,AW,3
  505.       Data AW,2,AD,2
  506.       Data AW,2,AL,1
  507.       Data AD,3,AW,2
  508.       Data AD,3,AD,1
  509.       Data AD,3,AL,3
  510.       Data AL,1,AW,2
  511.       Data AL,1,AD,1
  512.       Data AL,1,AL,3
  513.       PROB:
  514.       FC=LT : DIADVOTE=LT
  515.       GTDIAD:
  516.       If FC=1 Then HMV=HMV+2
  517.       If FC=2 Then AWV=AWV+2
  518.       If FC=3 Then DRV=DRV+2
  519.       If FC=4 Then Inc HMV : Inc DRV
  520.       If FC=5 Then Inc AWV : Inc DRV
  521.       DIADVOTE=FC
  522.  
  523. 'triad 
  524.  
  525. HA:
  526. If PM1<>1 or LM1<>2 Then Goto AH
  527. If LT=1 Then Restore HAHW
  528. If LT=3 Then Restore HAHD
  529. If LT=2 Then Restore HAHL
  530.  
  531. For R=1 To 9
  532. Read A,B,C
  533. If PR1=A and LR1=B Then FC=C : Goto GTFC
  534. Next R
  535.  
  536. HAHW:
  537. Data HW,AW,1
  538. Data HW,AL,1
  539. Data HW,AD,1
  540. Data HD,AW,1
  541. Data HD,AL,1
  542. Data HD,AD,1
  543. Data HL,AW,9
  544. Data HL,AL,1
  545. Data HL,AD,1
  546.  
  547. HAHD:
  548. Data HW,AW,4
  549. Data HW,AL,4
  550. Data HW,AD,4
  551. Data HD,AW,1
  552. Data HD,AL,4
  553. Data HD,AD,4
  554. Data HL,AW,3
  555. Data HL,AL,5
  556. Data HL,AD,4
  557.  
  558. HAHL:
  559. Data HW,AW,5
  560. Data HW,AL,5
  561. Data HW,AD,3
  562. Data HD,AW,3
  563. Data HD,AL,5
  564. Data HD,AD,5
  565. Data HL,AW,2
  566. Data HL,AL,5
  567. Data HL,AD,5
  568.  
  569.  
  570.  
  571.  
  572.  
  573.  
  574. '######### 
  575. AH:
  576. If PM1<>2 or LM1<>1 Then Goto AA
  577. If LT=1 Then Restore AHHW
  578. If LT=3 Then Restore AHHD
  579. If LT=2 Then Restore AHHL
  580.  
  581. For R=1 To 9
  582. Read A,B,C
  583. If PR1=A and LR1=B Then FC=C : Goto GTFC
  584. Next R
  585.  
  586. AHHW:
  587. Data AW,HW,1
  588. Data AW,HL,1
  589. Data AW,HD,1
  590. Data AD,HW,1
  591. Data AD,HL,3
  592. Data AD,HD,1
  593. Data AL,HW,1
  594. Data AL,HL,4
  595. Data AL,HD,1
  596.  
  597. AHHD:
  598. Data AW,HW,3
  599. Data AW,HL,5
  600. Data AW,HD,1
  601. Data AD,HW,1
  602. Data AD,HL,3
  603. Data AD,HD,3
  604. Data AL,HW,4
  605. Data AL,HL,4
  606. Data AL,HD,1
  607.  
  608. AHHL:
  609. Data AW,HW,2
  610. Data AW,HL,1
  611. Data AW,HD,2
  612. Data AD,HW,4
  613. Data AD,HL,3
  614. Data AD,HD,2
  615. Data AL,HW,5
  616. Data AL,HL,4
  617. Data AL,HD,5
  618.  
  619.  
  620. '$$$$$$$$$$$$
  621. AA:
  622. If PM1<>2 or LM1<>2 Then Goto PROB2
  623. If LT=1 Then Restore AAHW
  624. If LT=3 Then Restore AAHD
  625. If LT=2 Then Restore AAHL
  626.  
  627.  
  628. For R=1 To 9
  629. Read A,B,C
  630. If PR1=A and LR1=B Then FC=C : Goto GTFC
  631. Next R
  632.  
  633. AAHW:
  634. Data AW,AW,1
  635. Data AW,AL,4
  636. Data AW,AD,2
  637. Data AD,AW,1
  638. Data AD,AL,1
  639. Data AD,AD,1
  640. Data AL,AW,9
  641. Data AL,AL,9
  642. Data AL,AD,9
  643.  
  644. AAHD:
  645. Data AW,AW,1
  646. Data AW,AL,3
  647. Data AW,AD,5
  648. Data AD,AW,3
  649. Data AD,AL,1
  650. Data AD,AD,2
  651. Data AL,AW,9
  652. Data AL,AL,9
  653. Data AL,AD,9
  654.  
  655. AAHL:
  656. Data AW,HW,1
  657. Data AW,HL,9
  658. Data AW,HD,9
  659. Data AD,HW,3
  660. Data AD,HL,1
  661. Data AD,HD,5
  662. Data AL,HW,9
  663. Data AL,HL,9
  664. Data AL,HD,9
  665.  
  666. GTFC:
  667.  
  668. If FC<=3 Then Goto GTFFC
  669.  
  670. Restore AWAY
  671. For R=1 To 18
  672. Read A,B,C
  673. If PR2=A and LR2=B Then FC=C : Goto OKF
  674. Next R
  675.  
  676. AWAY:
  677. Data AW,HW,3
  678. Data AW,HL,1
  679. Data AW,HD,9
  680. Data AD,HW,9
  681. Data AD,HL,4
  682. Data AD,AD,4
  683. Data AL,HW,1
  684. Data AL,HL,1
  685. Data AL,HD,4
  686. Data HW,AW,6
  687. Data HW,AL,9
  688. Data HW,AD,6
  689. Data HD,AW,4
  690. Data HD,AL,4
  691. Data HD,AD,1
  692. Data HL,AW,9
  693. Data HL,AL,1
  694. Data HL,AD,4
  695. PROB2:
  696. FC=1 : TRIADVOTE=1
  697.  
  698. OKF:
  699. GTFFC:
  700. If FC=9 Then FC=DIADVOTE
  701. If FC=1 Then HMV=HMV+2
  702. If FC=2 Then AWV=AWV+2
  703. If FC=3 Then DRV=DRV+2
  704. If FC=4 Then Inc HMV : Inc DRV
  705. If FC=5 Then Inc AWV : Inc DRV
  706. If FC=6 Then Inc HMV : Inc AWV
  707. TRIADVOTE=FC
  708.  
  709. WORKOUTTOTS:
  710. If HMV>AWV and HMV>DRV Then VERDICT=1 : ST=HMV : Goto GTVERDICT
  711. If AWV>HMV and AWV>DRV Then VERDICT=2 : ST=AWV : Goto GTVERDICT
  712. If DRV>HMV and DRV>AWV Then VERDICT=3 : ST=DRV : Goto GTVERDICT
  713. If HMV=AWV and HMV=DRV Then VERDICT=3 : ST=DRV : Goto GTVERDICT
  714. If HMV=DRV Then VERDICT=3 : ST=DRV : Goto GTVERDICT
  715. If HMV=AWV Then VERDICT=2 : ST=AWV : Goto GTVERDICT
  716. If AWV=DRV Then VERDICT=2 : ST=AWV : Goto GTVERDICT
  717. VERDICT=1 : ST=HMV
  718. GTVERDICT:
  719. PRED(M)=VERDICT
  720. ST(M)=ST
  721. 'Cls 
  722. 'Print T1FXL$(LIST,M);" - ";T2FXL$(LIST,M) 
  723. 'Print "League test : ";LTVOTE 
  724. 'Print "Diad        : ";DIADVOTE 
  725. 'Print "Triad       : ";TRIADVOTE
  726. 'Print "Lg Diff     : ";LD 
  727. 'Print 
  728. 'Print "Verdict     : ";VERDICT
  729. If LTVOTE>=3 and VERDICT<>3 Then SHOCK(SH)=M : Inc SH : Goto GS
  730. If DIADVOTE=3 and TRIADVOTE<>3 and VERDICT<>3 Then SHOCK(SH)=M : Inc SH : Goto GS
  731. If LD>9 and TRIADVOTE=3 and VERDICT<>3 Then SHOCK(SH)=M : Inc SH : Goto GS
  732. If LD>9 and DIADVOTE=3 and VERDICT<>3 Then SHOCK(SH)=M : Inc SH : Goto GS
  733. If LD=1 and LTVOTE=1 and VERDICT<>3 Then SHOCK(SH)=M : Inc SH : Goto GS
  734. If LD=-1 and LTVOTE=1 and VERDICT<>3 Then SHOCK(SH)=M : Inc SH : Goto GS
  735. GS:
  736. 'If SHOCK(SH-1)=M Then Print "SHOCK DRAW"
  737. 'Wait Key  
  738. Next M
  739. 'For X=1 To 10 
  740. 'Print SHOCK(X)
  741. 'Next X
  742. 'Wait Key  
  743.  
  744.  
  745.  
  746.  
  747.  
  748.  
  749. PREDICTIONS
  750. Goto RESTARTIT
  751. End Proc
  752. Procedure PREDICTIONS
  753.      For T=1 To 100
  754.      PREDNO(T)=T
  755.      PRED$(T)=T1FXL$(LIST,T)+" v "+T2FXL$(LIST,T)
  756.      Next T
  757.      For T=1 To 40
  758.      SHOCK$(T)=T1FXL$(LIST,SHOCK(T))+" v "+T2FXL$(LIST,SHOCK(T))
  759.      Next T
  760.  
  761. SRT:
  762.       FLAG=0
  763.       For T=1 To 99
  764.          If ST(T)>=ST(T+1) Then Goto NSORTLOOP
  765.          TST=ST(T) : TPRED=PRED(T) : TPRED$=PRED$(T) : TPREDNO=PREDNO(T)
  766.          ST(T)=ST(T+1) : PRED(T)=PRED(T+1) : PRED$(T)=PRED$(T+1) : PREDNO(T)=PREDNO(T+1)
  767.          ST(T+1)=TST : PRED(T+1)=TPRED : PRED$(T+1)=TPRED$ : PREDNO(T+1)=TPREDNO
  768.          FLAG=1
  769.          NSORTLOOP:
  770.       Next T
  771.       If FLAG=1 Then Goto SRT
  772. NOSRT:
  773. D$(1)="Please remember, that these predictions are not real!"
  774. D$(3)="This demo version cannot make genuine predictions, as it doesn't have an up-to-date"
  775. D$(4)="INTELLIBET file."
  776. D$(6)="Should you decide to purchase the full version, then it will come supplied with a"
  777. D$(7)="file that is totally up-to-date."
  778. D$(9)="The User-Guide gives full details on how to get your copy of Pro-Football."
  779.  
  780. DTEXT
  781. PREDMENU:
  782. TITLE$="Predictions - "+FXLN$(LIST) : TITLE
  783. T$(1)="Which set of predictions would you like to view?" : T$(4)="HELP AVAILABLE" : HELPBOX
  784. M$(1)="Home Wins"
  785. M$(2)="Away Wins"
  786. M$(3)="Draws"
  787. M$(4)="Shock Draws"
  788. M$(5)="All"
  789. M$(6)="Exit This Menu"
  790. MEN[6,6]
  791. O=Param
  792. If O=1 Then SCH=1
  793. If O=2 Then SCH=2
  794. If O=3 Then SCH=3
  795. If O=4 Then SCH=5 : Goto SHOCKDRAWS
  796. If O=5 Then SCH=4
  797. If O=6 Then Pop Proc
  798. CLEAR
  799. '
  800. T$(1)="Predictions are shown in order of 'likeliness'." : HELPBOX
  801. SP=1
  802. NP:
  803. DI=0
  804. Reserve Zone 3
  805. Set Zone 1,195,219 To 249,229
  806. Set Zone 2,255,219 To 309,229
  807. Set Zone 3,315,219 To 369,229
  808. For R=1 To 100
  809. If SCH=4 Then Goto SK
  810. If PRED(SP)<>SCH Then Goto NM
  811. SK:
  812. Inc DI : If DI<10 Then Goto SOK
  813.  
  814.    M$(1)="Print" : BX[130,161,1,1,6]
  815. M$(1)="Quit" : BX[250,161,1,1,6]
  816. M$(1)="Continue" : BX[370,161,1,1,6]
  817. X:
  818. Z=Zone(X Mouse,Y Mouse)
  819. If Mouse Click=0 Then Goto X
  820. If Z=0 Then Goto X
  821. If Z=2 Then BING : Goto PREDMENU
  822. If Z=1 Then BING : Gosub PNT : Goto PREDMENU
  823. BING
  824.  
  825.  
  826.  
  827. CLEAR : DI=1
  828.  
  829.  
  830. SOK:
  831. If SCH<5 Then M$(1)=PRED$(R)
  832. BX[65,(DI*16)-5,1,3,7]
  833.  
  834. If SCH<5 Then Ink 4,0 : Text 35,18+(DI*16),Str$(PREDNO(R))
  835. If PRED(SP)=1 Then PRED$="1"
  836. If PRED(SP)=2 Then PRED$="2"
  837. If PRED(SP)=3 Then PRED$="X"
  838. Ink 6,0 : Text 305,18+(DI*16),PRED$
  839. For T=1 To ST(R)
  840. Paste Icon 301+(T*30),(DI*16)+7,18
  841. Next T
  842. NM:
  843. Inc SP
  844. If SP>MIL(LIST) Then Goto NOMORE
  845. Next R
  846.  
  847. CLEAR
  848. Goto NP
  849. NOMORE:
  850. If DI>0 Then Goto K8
  851. Ink 6,0 : Text 180,100,"No predictions of that type were found!"
  852. T$(1)="Press a key or click mouse to continue ..." : HELPBOX
  853. KOM2:
  854. I$=Inkey$
  855. If I$<>"" Then BING : Goto PREDMENU
  856. If Mouse Click<>0 Then BING : Goto PREDMENU
  857. Goto KOM2
  858. K8:
  859. M$(1)="Print" : BX[130,161,1,1,6]
  860. M$(1)="Continue" : BX[370,161,1,1,6]
  861. X2:
  862. Z=Zone(X Mouse,Y Mouse)
  863. If Mouse Click=0 Then Goto X2
  864. If Z=0 Then Goto X2
  865. If Z=2 Then Goto X2
  866. If Z=1 Then BING : Gosub PNT : Goto PREDMENU
  867. BING
  868.    Goto PREDMENU
  869. PNT:
  870. REQ[3,"","Get your printer ready, then click on OK","","",2,"OK","ABORT",""]
  871. O=Param
  872. If O=1 Then Return 
  873. RECHECK:
  874. H=Peek($BFD000)
  875. H$=Hex$(H)
  876. If H$="$FF" or(H$="$FB") Then PS=0
  877. If H$="$FC" Then PS=1
  878. If H$="$FD" or(H$="$F9") Then PS=0
  879. If H$="$FE" Then PS=0
  880. If PS=1 Then Goto P
  881. REQ[2,"","There appears to be a problem with your printer!","Check power, leads, paper & 'online-ness'.","",2,"OK","ABORT",""]
  882. O=Param
  883. If O=1 Then Return 
  884. Goto RECHECK
  885. P:
  886. LIST$=FXLN$(LIST)
  887. If LIST=21 Then LIST$="Main List"
  888. If LIST=22 Then LIST$="Pools List"
  889. If SCH=5 Then TYPE$="Potential Shock Draws"
  890. If SCH=4 Then TYPE$="All Predictions"
  891. If SCH=1 Then TYPE$="Home Wins"
  892. If SCH=2 Then TYPE$="Away Wins"
  893. If SCH=3 Then TYPE$="Draws"
  894. Lprint 
  895. Lprint "                _________________________________________________"
  896. Lprint 
  897. Lprint "                Pro-Football 1.1 - (C) Copyright Ali Prior 1995"
  898. Lprint "                ";TYPE$;" from ";LIST$
  899. Lprint "                _________________________________________________"
  900.  
  901. SP=1
  902. Lprint 
  903. Lprint 
  904. If SCH=5 Then Goto SHOCKDRAWPNT
  905. For R=1 To 100
  906. If SCH=4 Then Goto SK2
  907. If PRED(SP)<>SCH Then Goto NM2
  908. SK2:
  909.  
  910.  
  911.  
  912. SOK2:
  913.  
  914. If PRED(SP)=1 Then PRED$="1"
  915. If PRED(SP)=2 Then PRED$="2"
  916. If PRED(SP)=3 Then PRED$="X"
  917. Lprint "              "; Using "###";PREDNO(SP);"  "; Using "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~";PRED$(SP); Using "~~";PRED$;"[  ]  ";
  918. For T=1 To ST(SP)
  919. Lprint "*";
  920. Next T
  921.  
  922. SKTB:
  923. Lprint 
  924. NM2:
  925. Inc SP
  926. If SP>MIL(LIST) Then Goto NOMORE2
  927. Next R
  928.  
  929. NOMORE2:
  930.  
  931. Return 
  932. SHOCKDRAWPNT:
  933. For R=1 To 40
  934. If SHOCK(R)=0 Then Goto NOMORE2
  935. PRED$="SX"
  936. Lprint "              "; Using "###";SHOCK(R);"  "; Using "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~";SHOCK$(R); Using "~~";PRED$;"[  ]  "
  937. Next R
  938.  
  939. SHOCKDRAWS:
  940. CLEAR
  941. T$(1)="'Shock Draws' are matches that were predicted to be"
  942. T$(2)="home/away wins, but could (possibly) end up as draws."
  943. HELPBOX
  944. NP2:
  945. DI=0
  946. Reserve Zone 3
  947. Set Zone 1,195,219 To 249,229
  948. Set Zone 2,255,219 To 309,229
  949. Set Zone 3,315,219 To 369,229
  950. For R=1 To 40
  951. Inc DI : If DI<10 Then Goto SOK3
  952.  
  953. M$(1)="Print" : BX[130,161,1,1,6]
  954. M$(1)="Quit" : BX[250,161,1,1,6]
  955. M$(1)="Continue" : BX[370,161,1,1,6]
  956. X3:
  957. Z=Zone(X Mouse,Y Mouse)
  958. If Mouse Click=0 Then Goto X3
  959. If Z=0 Then Goto X3
  960. If Z=2 Then BING : Goto PREDMENU
  961. If Z=1 Then BING : Gosub PNT : Goto PREDMENU
  962. BING
  963.  
  964.  
  965.  
  966. CLEAR : DI=1
  967.  
  968.  
  969. SOK3:
  970. If SHOCK(R)=0 Then Goto NOMORE3
  971. M$(1)=SHOCK$(R)
  972.  
  973. BX[65,(DI*16)-5,1,3,7]
  974.  
  975. Ink 4,0 : Text 35,18+(DI*16),Str$(SHOCK(R))
  976. Ink 6,0 : Text 305,18+(DI*16),"Potential Shock Draw"
  977. NM3:
  978. Next R
  979.  
  980. CLEAR
  981. Goto NP2
  982. NOMORE3:
  983. If DI<>1 Then Goto K9
  984. Ink 6,0 : Text 180,100,"No predictions of that type were found!"
  985. T$(1)="Press a key or click mouse to continue ..." : HELPBOX
  986. KOM:
  987. I$=Inkey$
  988. If I$<>"" Then BING : Goto PREDMENU
  989. If Mouse Click<>0 Then BING : Goto PREDMENU
  990. Goto KOM
  991. K9:
  992. M$(1)="Print" : BX[130,161,1,1,6]
  993. M$(1)="Continue" : BX[370,161,1,1,6]
  994. X4:
  995. Z=Zone(X Mouse,Y Mouse)
  996. If Mouse Click=0 Then Goto X4
  997. If Z=0 Then Goto X4
  998. If Z=2 Then Goto X4
  999. If Z=1 Then BING : Gosub PNT : Goto PREDMENU
  1000. BING
  1001.    Goto PREDMENU
  1002. End Proc
  1003. Procedure MAINMENU
  1004. MENU:
  1005. TITLE$="Main Menu" : TITLE
  1006. CLEAR
  1007. T$(1)="Please click on the required option."
  1008. T$(3)="Lesser used options are hidden away on the right mouse button."
  1009. T$(4)="Help is available by pressing the HELP key."
  1010. HELPBOX
  1011. Reserve Zone 3
  1012. Set Zone 1,191,101 To 248,177
  1013. Set Zone 2,251,101 To 309,178
  1014. Set Zone 3,312,101 To 370,178
  1015. Menu$(1)=" Misc            " : Menu$(2)=" Config          " : Menu$(3)=" Utilities "
  1016. Menu$(1,1)=" Full Version Details "
  1017. Menu$(1,2)=" User-Guide           "
  1018. Menu$(1,3)=" About Pro-Football   "
  1019. Menu$(1,4)=" Quit                 "
  1020. Menu$(2,1)=" League Editor  "
  1021. Menu$(2,2)=" Re-Set Leagues "
  1022. Menu$(3,1)=" Random X's     "
  1023. Menu$(3,2)=" Returns Calculator "
  1024. Paste Icon 121,56,19
  1025. RM:
  1026. Menu On 
  1027. Z=Zone(X Mouse,Y Mouse)
  1028. If Choice=0 Then Goto NC
  1029. If Choice(1)=1 and Choice(2)=1 Then BING : Menu Off : HLP[99] : Goto MENU
  1030. If Choice(1)=1 and Choice(2)=2 Then BING : Menu Off : HLP[0] : Goto MENU
  1031. If Choice(1)=1 and Choice(2)=3 Then BING : Menu Off : ABOUT : Goto MENU
  1032. If Choice(1)=1 and Choice(2)=4 Then BING : Menu Off : QUIT : Goto MENU
  1033. If Choice(1)=2 and Choice(2)=1 Then BING : Menu Off : LGEDIT : Goto MENU
  1034. If Choice(1)=2 and Choice(2)=2 Then BING : Menu Off : INIT : Goto MENU
  1035. If Choice(1)=3 and Choice(2)=1 Then BING : Menu Off : RANDOM : Goto MENU
  1036. If Choice(1)=3 and Choice(2)=2 Then BING : Menu Off : RETCALC : Goto MENU
  1037. NC:
  1038. If Key State(95)=True Then HLP[2] : Goto MENU
  1039. If Mouse Click=0 Then Goto RM
  1040. If Z=0 Then Goto RM
  1041.  
  1042. If Z=3 Then BING : Menu Off : RESULTS : Goto MENU
  1043. If Z=1 Then BING : Menu Off : FXTURES : Goto MENU
  1044. If Z=2 Then BING : Menu Off : PRED : Goto MENU
  1045. Goto RM
  1046.  
  1047.  
  1048. End Proc
  1049. Procedure RETCALC
  1050. NEWBET:
  1051. CLEAR
  1052. TITLE$="Returns Calculator" : TITLE
  1053. T$(1)="This calculator can work out the return on any accumulator"
  1054. T$(2)="up to and including a ten-fold one."
  1055. T$(4)="Please enter the number of selections in your bet ..."
  1056. HELPBOX
  1057. M$(1)="Number Of Selections : "
  1058. BX[200,80,1,2,7]
  1059. GN[380,103,10,2,6,3]
  1060. SELS=Val(Param$)
  1061. If SELS=0 Then Pop Proc
  1062. CLEAR
  1063. For R=1 To SELS
  1064. M$(R)="Odds for Match"+Str$(R)
  1065. Next R
  1066. BX[50,20,SELS,3,7]
  1067.  
  1068. For R=1 To SELS
  1069. GTODDS:
  1070. T$(1)="Please enter the odds for match"+Str$(R)+"."
  1071. T$(3)="Odds should be entered as generally written, with a dash."
  1072. T$(4)="Eg: 4-1, 5-4 etc. For EVENS, just press RETURN." : HELPBOX
  1073. LEFTBIT=0
  1074. RIGHTBIT=0
  1075. ODD$="" : T$=""
  1076. Ink 6,5
  1077. Text 200,30+(R*13)," _      "
  1078.  
  1079.  
  1080. N:
  1081. I$=Lower$(Inkey$)
  1082. If I$="" Then Goto N
  1083. If Asc(I$)=13 Then LEFTBIT=Val(ODD$) : Goto DN
  1084. If Asc(I$)=8 Then BONG : Goto GTODDS
  1085. If Asc(I$)=45 Then Goto DASH
  1086. If Asc(I$)<48 Then Goto N
  1087. If Asc(I$)>57 Then Goto N
  1088. 'Print I$; 
  1089. ODD$=ODD$+I$
  1090. Text 205,30+(R*13),ODD$+"_"
  1091. If Len(ODD$)>3 Then BONG : Goto GTODDS
  1092. If Val(ODD$)>100 Then BONG : Goto GTODDS
  1093. If Val(ODD$)=0 Then BONG : Goto GTODDS
  1094. Goto N
  1095. DASH:
  1096. LEFTBIT=Val(ODD$)
  1097. T$=ODD$ : ODD$=""
  1098. T$=T$+"-"
  1099. Text 205,30+(R*13),T$+"_"
  1100. M:
  1101. I$=Lower$(Inkey$)
  1102. If I$="" Then Goto M
  1103. If Asc(I$)=8 Then BONG : Goto GTODDS
  1104. If Asc(I$)=13 Then Goto DNA
  1105. If Asc(I$)<48 Then Goto M
  1106. If Asc(I$)>57 Then Goto M
  1107.  
  1108. ODD$=ODD$+I$
  1109. T$=T$+I$
  1110. Text 205,30+(R*13),T$+"_"
  1111. If Val(ODD$)=0 Then BONG : Goto GTODDS
  1112. If Len(ODD$)>3 Then BONG : Goto GTODDS
  1113. If Val(ODD$)>100 Then BONG : Goto GTODDS
  1114. Goto M
  1115. DNA:
  1116. RIGHTBIT=Val(ODD$)
  1117. DN:
  1118. BING
  1119. If LEFTBIT=0 Then T$="Evens" : ODDS#(R)=1 : Goto DNCONV
  1120. If RIGHTBIT=0 Then T$=Right$(Str$(LEFTBIT),Len(Str$(LEFTBIT))-1)+"-1" : ODDS#(R)=LEFTBIT : Goto DNCONV
  1121. LB#=LEFTBIT : RB#=RIGHTBIT
  1122. ODDS#(R)=LB#/RB#
  1123. LEFTBIT=0 : RIGHTBIT=0
  1124. DNCONV:
  1125. Text 205,30+(R*13),T$+"  "
  1126. Next R
  1127. For R=1 To SELS
  1128. ODDS#(R)=ODDS#(R)+1
  1129. Next R
  1130. If SELS=10 Then Goto A10
  1131. For R=SELS+1 To 10
  1132. ODDS#(R)=1
  1133. Next R
  1134. A10:
  1135. T$(1)="Please enter your stake in pence."
  1136. T$(2)="ie: ï¿½ 1.50 would be entered as 150."
  1137. HELPBOX
  1138. M$(1)="Stake (Pence) :"
  1139. BX[330,20,1,2,7]
  1140. GN[460,43,9999,4,6,3]
  1141. STAKE#=Val(Param$)
  1142.  
  1143. STAKE#=STAKE#
  1144. TAX#=STAKE#/10
  1145. TSTAKE#=STAKE#+TAX#
  1146.  
  1147. Fix(2)
  1148. BING
  1149. M$(1)="Stake"
  1150. BX[330,20,1,2,7]
  1151. Text 450,43,"�"+Str$(STAKE#/100)
  1152. M$(1)="Tax"
  1153. BX[330,33,1,2,7]
  1154. Text 450,56,"�"+Str$(TAX#/100)
  1155. M$(1)="Total"
  1156. BX[330,46,1,2,7]
  1157. Text 450,69,"�"+Str$(TSTAKE#/100)
  1158.  
  1159. RET#=ODDS#(1)*ODDS#(2)*ODDS#(3)*ODDS#(4)*ODDS#(5)*ODDS#(6)*ODDS#(7)*ODDS#(8)*ODDS#(9)*ODDS#(10)*STAKE#
  1160. M$(1)="Return"
  1161. BX[330,72,1,2,7]
  1162. Text 450,95,"�"+Str$(RET#/100)
  1163. T$(1)="What do you want to do next?" : HELPBOX
  1164. M$(1)="Change Stake"
  1165. M$(2)="New Bet"
  1166. M$(3)="Quit Calc"
  1167. BX[383,100,3,1,6]
  1168. Reserve Zone 3
  1169. Set Zone 1,321,157 To 376,168
  1170. Set Zone 2,321,171 To 377,181
  1171. Set Zone 3,322,184 To 377,195
  1172. X:
  1173. Z=Zone(X Mouse,Y Mouse)
  1174. If Mouse Key=0 Then Goto X
  1175. If Z=0 Then Goto X
  1176. If Z=3 Then BING : Pop Proc
  1177. If Z=2 Then BING : Goto NEWBET
  1178. If Z=1 Then BING : Goto A10
  1179. End Proc
  1180. Procedure RANDOM
  1181. CLEAR
  1182. TITLE$="Random X's" : TITLE
  1183. T$(1)="The above table shows 20 randomly generated numbers."
  1184. T$(2)="If Pro-Football can only find a few draws/shock draws"
  1185. T$(3)="then these numbers are as good a way as any of padding"
  1186. T$(4)="out your pools selection.  Click mouse when done ..."
  1187. HELPBOX
  1188. Randomize Timer
  1189. For R=1 To 20
  1190. NG:
  1191. N=Rnd(57)+1
  1192. If R=1 Then Goto OK
  1193.   For C=1 To R-1
  1194.   If N=R(C) Then Goto NG
  1195.   Next C
  1196. OK:
  1197. R(R)=N
  1198. Next R
  1199. For Y=1 To 4
  1200. For X=1 To 5
  1201. M$(1)=Str$(R(((Y-1)*5)+X))
  1202. BX[(X*120)-105,(Y*15)+40,1,1,7]
  1203. Next X : Next Y
  1204. KOM:
  1205. I$=Inkey$
  1206. If I$<>"" Then BING : Pop Proc
  1207. If Mouse Click<>0 Then BING : Pop Proc
  1208. Goto KOM
  1209.  
  1210.  
  1211. End Proc
  1212. '----------------- 
  1213. Procedure RESULTS
  1214. TITLE$="Enter Results" : TITLE
  1215. If MLISTEXIST=1 Then Goto GR
  1216. D$(1)="Pro-Football looks at your fixtures list to find out what matches it needs"
  1217. D$(2)="results for. You haven't created any lists yet!"
  1218. D$(4)="You need to go back to the main menu, and select 'Fixtures'."
  1219. D$(6)="If you haven't already done so, then you should read the User-Guide."
  1220. D$(7)="To access the guide, go to the main menu, hold down the right mouse button,"
  1221. D$(8)="and select 'User-Guide' from the pull down menu."
  1222. DTEXT
  1223. Pop Proc
  1224. GR:
  1225. D$(1)="In the full version, you probably wouldn't be entering the results on the same"
  1226. D$(2)="day that you created the fixture lists. Therefore, you would now load one of"
  1227. D$(3)="the previously created fixture lists."
  1228. D$(5)="However, with the demo, the idea is just to let you see how things work, so"
  1229. D$(6)="you will now get to practice entering results for the matches on the fixture list"
  1230. D$(7)="that you have just created."
  1231. DTEXT
  1232. CLEAR
  1233. T$(1)="Please Wait ... Preparing Results" : HELPBOX
  1234. For LG=1 To 25
  1235. If LG$(LG)="Un-Named League" Then Goto NLG
  1236. LG$=LG$(LG)
  1237. For R=1 To 25 : RESA$(R)="" : RESB$(R)="" : RES(R)=9 : Next R : RES=1
  1238. TITLE$=LG$(LG)+" Results" : TITLE
  1239.  
  1240. For L=1 To 22
  1241.     For T=1 To MIL(L)
  1242.         For X=1 To TEAMS(LG)
  1243.             If T1FXL$(L,T)=TEAM$(LG,X)
  1244.                RESA$(RES)=T1FXL$(L,T) : RESB$(RES)=T2FXL$(L,T)
  1245.                If RES=1
  1246.                   Goto NC
  1247.                End If 
  1248.                For Y=1 To RES-1
  1249.                   If RESA$(RES)=RESA$(Y)
  1250.                    RESA$(RES)="" : RESB$(RES)="" : Goto DC
  1251.                    End If 
  1252.                Next Y
  1253.             NC:
  1254.                Inc RES
  1255.             DC:
  1256.            End If 
  1257.         Next X
  1258.     Next T
  1259. Next L
  1260.  
  1261.  
  1262. For X=1 To RES
  1263. For L=1 To 25
  1264. For Y=1 To TEAMS(L)
  1265. If RESA$(X)=TEAM$(L,Y) Then LGA(X)=L
  1266. If RESB$(X)=TEAM$(L,Y) Then LGB(X)=L
  1267. Next Y
  1268. Next L
  1269. Next X
  1270.  
  1271. Reserve Zone 25
  1272. Set Zone 1,186,100 To 204,117
  1273. Set Zone 3,186,119 To 204,136
  1274. Set Zone 5,186,138 To 204,155
  1275. Set Zone 7,186,157 To 204,174
  1276. Set Zone 9,186,176 To 204,193
  1277. Set Zone 11,186,195 To 225,212
  1278.  
  1279. Set Zone 2,207,100 To 225,117
  1280. Set Zone 4,207,119 To 225,136
  1281. Set Zone 6,207,138 To 225,155
  1282. Set Zone 8,207,157 To 225,174
  1283. Set Zone 10,207,176 To 225,193
  1284.  
  1285. Set Zone 12,341,100 To 358,117
  1286. Set Zone 14,341,119 To 358,136
  1287. Set Zone 16,341,138 To 358,155
  1288. Set Zone 18,341,157 To 358,174
  1289. Set Zone 20,341,176 To 358,193
  1290. Set Zone 22,341,195 To 380,212
  1291.  
  1292. Set Zone 13,362,100 To 380,117
  1293. Set Zone 15,362,119 To 380,136
  1294. Set Zone 17,362,138 To 380,155
  1295. Set Zone 19,362,157 To 380,174
  1296. Set Zone 21,362,176 To 380,193
  1297.  
  1298. Set Zone 23,254,117 To 309,128
  1299. Set Zone 24,254,137 To 309,148
  1300. Set Zone 25,254,157 To 309,168
  1301. If RES=1 Then Goto NLG
  1302. For R=1 To RES-1
  1303. CLEAR
  1304. T$(1)="Enter the result for this match." : T$(2)="Check it carefully before clicking on OK!" : HELPBOX
  1305. M$(1)=RESA$(R) : BX[75,20,1,3,6]
  1306. M$(1)=RESB$(R) : BX[320,20,1,3,6]
  1307. Paste Icon 102,52,17 : Paste Icon 412,52,17
  1308. M$(1)="  No Result" : 
  1309. BX[249,60,1,1,6]
  1310. M$(1)="    Clear"
  1311. BX[249,80,1,1,6]
  1312. M$(1)="     OK"
  1313. BX[249,100,1,1,6]
  1314.  
  1315. SCORE1(R)=20 : SCORE2(R)=20
  1316.  
  1317. UD:
  1318.  
  1319. If SCORE1(R)=20 Then Ink 1,5 : Text 255,43,"--- "
  1320. If SCORE2(R)=20 Then Ink 1,5 : Text 500,43,"--- "
  1321. If SCORE1(R)<>20 Then Ink 1,5 : Text 255,43,Str$(SCORE1(R))+"  "
  1322. If SCORE2(R)<>20 Then Ink 1,5 : Text 500,43,Str$(SCORE2(R))+"  "
  1323.  
  1324. GM:
  1325. Z=Zone(X Mouse,Y Mouse)
  1326. If Mouse Click<>0 Then Goto GTSEL
  1327. If Key State(51)=True Then Z=24 : Goto GTSEL
  1328. If Key State(54)=True Then Z=23 : Goto GTSEL
  1329. If Key State(68)=True Then Z=25 : Goto GTSEL
  1330. If Key State(1)=True Then Z=2 : Goto GTSEL
  1331. If Key State(2)=True Then Z=3 : Goto GTSEL
  1332. If Key State(3)=True Then Z=4 : Goto GTSEL
  1333. If Key State(4)=True Then Z=5 : Goto GTSEL
  1334. If Key State(5)=True Then Z=6 : Goto GTSEL
  1335. If Key State(6)=True Then Z=7 : Goto GTSEL
  1336. If Key State(7)=True Then Z=8 : Goto GTSEL
  1337. If Key State(8)=True Then Z=9 : Goto GTSEL
  1338. If Key State(9)=True Then Z=10 : Goto GTSEL
  1339. If Key State(10)=True Then Z=1 : Goto GTSEL
  1340. If Key State(29)=True Then Z=13 : Goto GTSEL
  1341. If Key State(30)=True Then Z=14 : Goto GTSEL
  1342. If Key State(31)=True Then Z=15 : Goto GTSEL
  1343. If Key State(45)=True Then Z=16 : Goto GTSEL
  1344. If Key State(46)=True Then Z=17 : Goto GTSEL
  1345. If Key State(47)=True Then Z=18 : Goto GTSEL
  1346. If Key State(61)=True Then Z=19 : Goto GTSEL
  1347. If Key State(62)=True Then Z=20 : Goto GTSEL
  1348. If Key State(63)=True Then Z=21 : Goto GTSEL
  1349. If Key State(15)=True Then Z=12 : Goto GTSEL
  1350. Goto GM
  1351.  
  1352. GTSEL:
  1353. If Z=0 Then Goto GM
  1354. If Z<12 Then SCORE1(R)=Z-1 : BING : Goto SRT
  1355. If Z<23 Then SCORE2(R)=Z-12 : BING : Goto SRT
  1356. If Z=23 or Z=24 Then SCORE1(R)=20 : SCORE2(R)=20 : BING : Goto SRT
  1357. If Z=25 Then ACCEPT : Goto GTRES
  1358. SRT:
  1359. Goto UD
  1360.  
  1361. GTRES:
  1362. If SCORE1(R)=20 Then RES(R)=0 : Goto SS
  1363. If SCORE1(R)=SCORE2(R) Then RES(R)=3
  1364. If SCORE1(R)>SCORE2(R) Then RES(R)=1
  1365. If SCORE1(R)<SCORE2(R) Then RES(R)=2
  1366.  
  1367. SS:
  1368. Next R
  1369.  
  1370.  
  1371. For R=1 To RES-1
  1372.     For T=1 To 25
  1373.         If TEAM$(LGA(R),T)=RESA$(R)
  1374.            RTA=T
  1375.         End If 
  1376.         If TEAM$(LGB(R),T)=RESB$(R)
  1377.            RTB=T
  1378.         End If 
  1379.      Next T
  1380.  
  1381.  
  1382. Next R
  1383. NLG:
  1384. CLEAR
  1385. T$(1)="Please wait ... accessing next set of details." : HELPBOX
  1386. Next LG
  1387. D$(1)="OK, that's the results entered."
  1388. D$(2)="Pro-Football would now update it's system to take account of these results."
  1389. D$(4)="Please remember, that this HAS NOT happened in this demo version - the"
  1390. D$(5)="results database has not been updated."
  1391. D$(7)="The full version comes pre-loaded with all the necessary up-to-date results, all you"
  1392. D$(8)="need to do then is keep it up-to-date each week."
  1393. DTEXT
  1394. End Proc
  1395. '----------------- 
  1396. Procedure LGEDIT
  1397. D$(1)="In the full version, you can create as many leagues as you like, whether"
  1398. D$(2)="they be UK or Australian."
  1399. D$(4)="You can still have a go at using the league editor in the demo, but none"
  1400. D$(5)="of the changes you make will be saved to disk."
  1401. DTEXT
  1402. LGED:
  1403. CLEAR
  1404. TITLE$="League Editor" : TITLE
  1405. LMEN:
  1406. For R=1 To 25
  1407. M$(R)=LG$(R)
  1408. Next R
  1409. T$(1)="Click on the league you wish to edit."
  1410. T$(4)="HELP AVAILABLE" : HELPBOX
  1411. M$(26)="Exit This Menu"
  1412. MEN[26,8]
  1413. OPT=Param
  1414. If OPT=26 Then Goto QUIT
  1415. NTER:
  1416. CLEAR
  1417. M$(1)="League Name"
  1418. M$(2)="Teams In League"
  1419. BX[85,80,2,2,7]
  1420. M$(1)="" : M$(2)=""
  1421. BX[305,80,1,3,7]
  1422. BX[305,93,1,3,7]
  1423. T$(1)="Enter the new name for the "+LG$(OPT)+"."
  1424. T$(2)="To keep the same name, just press RETURN."
  1425. T$(3)="To delete the league entirely, type DELETE."
  1426. T$(4)="To return to menu, press ESC."
  1427. HELPBOX
  1428. EX=0
  1429. GTTEXT[320,102,25,6,5]
  1430. If EX=1 Then Goto LMEN
  1431. RE$=Param$
  1432. If Lower$(RE$)="delete" Then Goto DELETE
  1433. If RE$<>"" Then LG$(OPT)=RE$
  1434. If RE$="" Then Text 320,102,LG$(OPT)
  1435. T$(1)="The number of teams in the league is currently"+Str$(TEAMS(OPT))+"."
  1436. T$(3)="You can either enter a new figure, or press RETURN to stick"
  1437. T$(4)="with the existing one."
  1438. HELPBOX
  1439. GN[320,115,25,2,6,5]
  1440. RE$=Param$
  1441. If RE$<>"" Then TEAMS(OPT)=Val(RE$)
  1442. If RE$="" Then Text 312,115,Str$(TEAMS(OPT))
  1443. LG=OPT
  1444. REDRAW:
  1445. CLEAR
  1446. TITLE$=LG$(LG) : TITLE
  1447. For R=1 To TEAMS(LG)
  1448. M$(R)=TEAM$(LG,R)
  1449. Next R
  1450. M$(TEAMS(LG)+1)="Exit This Menu"
  1451. T$(1)="Click on the team that you want to change."
  1452. T$(3)="Alternatively, press 'E' to edit all"+Str$(TEAMS(LG))+" teams."
  1453. HELPBOX
  1454. TEAMMEN=1 : EMOD=0
  1455. MEN[TEAMS(LG)+1,8]
  1456. TEAMMEN=0
  1457. If EMOD=1 Then Gosub AUTOEDIT : Goto REDRAW
  1458. If EMOD=2 Then Gosub TABLEED : Goto REDRAW
  1459. OPT=Param
  1460. If OPT=TEAMS(LG)+1 Then Goto LGED
  1461. CLEAR
  1462. M$(1)="Team Name (Team"+Str$(OPT)+")"
  1463. BX[85,80,1,2,7]
  1464. M$(1)=""
  1465. BX[305,80,1,3,6]
  1466. T$(1)="Enter the name of the team to replace "+TEAM$(LG,OPT)+"."
  1467. T$(3)="Just press RETURN if you want to leave it as it is."
  1468. HELPBOX
  1469. GTTEXT[320,102,25,6,5]
  1470. P$=Param$
  1471. If P$="" Then Goto REDRAW
  1472. TEAM$(LG,OPT)=P$
  1473. Goto REDRAW
  1474. QUIT:
  1475. T$(1)="Confirm that the details are correct by clicking on YES or NO."
  1476. HELPBOX
  1477. CLEAR
  1478. Pop Proc
  1479. AUTOEDIT:
  1480. BING
  1481. For OPT=1 To TEAMS(LG)
  1482. CLEAR
  1483. M$(1)="Team Name (Team"+Str$(OPT)+")"
  1484. BX[85,80,1,2,7]
  1485. M$(1)=""
  1486. BX[305,80,1,3,6]
  1487. T$(1)="Enter the name of the team to replace "+TEAM$(LG,OPT)+"."
  1488. T$(3)="Just press RETURN if you want to leave it as it is."
  1489. HELPBOX
  1490. GTTEXT[320,102,25,6,5]
  1491. P$=Param$
  1492. If P$="" Then Goto REDRAW2
  1493. TEAM$(LG,OPT)=P$
  1494. REDRAW2:
  1495. Next OPT
  1496. Return 
  1497.  
  1498. DELETE:
  1499. LG$(OPT)="Un-Named League"
  1500. For B=1 To 25
  1501. TEAM$(OPT,B)="Un-Named Team"
  1502. FM$(OPT,B)="00000099999999"
  1503. Next B
  1504. Goto LGED
  1505. '
  1506. TABLEED:
  1507. CLEAR
  1508. TITLE$="Mid-Season Update" : TITLE
  1509. '
  1510. REQ[1,"This undocumented editor was used for testing purposes","during development. It allows you to edit","the internal league and form tables.","Are you sure you want to continue?",2,"YES","NO",""]
  1511. O=Param
  1512. If O=1 Then Return 
  1513. For R=1 To TEAMS(LG)
  1514. M$(1)=TEAM$(LG,R)
  1515. BX[200,56,1,3,7]
  1516.  
  1517. REDOTHISBIT:
  1518. M$(1)="Games Played" : M$(2)="Points" : M$(3)="Goals For" : M$(4)="Second Last Res" : M$(5)="Last Res"
  1519.  
  1520. BX[200,72,5,2,2]
  1521. T$(1)="Enter the number of games played." : HELPBOX
  1522. GN[355,95,99,2,1,3]
  1523. TDP(LG,R)=Val(Param$)
  1524. T$(1)="Enter the number of points." : HELPBOX
  1525. GN[355,108,99,2,1,3]
  1526. TDPTS(LG,R)=Val(Param$)
  1527. T$(1)="Enter the number of goals for." : HELPBOX
  1528. GN[355,121,99,2,1,3]
  1529. TDG(LG,R)=Val(Param$)
  1530. T$(1)="Enter the second last result." : T$(2)="1 HW, 2 AW, 3 HD, 4 HL, 5 AL, 6 AD" : HELPBOX
  1531. GN[355,144,6,1,1,3]
  1532. TDM1(LG,R)=Val(Param$)
  1533. T$(1)="Enter the second last result." : T$(2)="1 HW, 2 AW, 3 HD, 4 HL, 5 AL, 6 AD" : HELPBOX
  1534. GN[355,167,6,1,1,3]
  1535. TDM2(LG,R)=Val(Param$)
  1536. T$(1)="Are these OK? (Y/N)" : HELPBOX
  1537. X:
  1538. I$=Lower$(Inkey$)
  1539. If I$="" Then Goto X
  1540. If I$="n" Then BONG : Goto REDOTHISBIT
  1541. If I$<>"y" Then Goto X
  1542. ACCEPT
  1543. Next R
  1544.  
  1545.  
  1546. Return 
  1547. End Proc
  1548. '----------------- 
  1549. Procedure QUIT
  1550. TITLE$="Go on, stay a bit longer!" : TITLE
  1551. HELPBOX
  1552. REQ[2,"","Are you sure you want to quit?","","",2,"YES","NO",""]
  1553. O=Param
  1554. If O=1 Then Pop Proc
  1555. If O=3 Then Assign "FONTS:" To "SYS:FONTS" : Edit 
  1556. End Proc
  1557. Procedure ABOUT
  1558. TITLE$="About" : TITLE
  1559. T$(1)="Click on OK to return to main menu ..." : HELPBOX
  1560. MEM$="Free Memory - CHIP:"+Str$(Chip Free)+" FAST:"+Str$(Fast Free)
  1561. REQ[3,"Version 1.1 - Released September 1995","DEMO VERSION","(C) Copyright Ali Prior - All Rights Reserved",MEM$,1,"OK","",""]
  1562. End Proc
  1563. Procedure FXTURES
  1564. N:
  1565. CLEAR
  1566. TITLE$="Fixtures Menu" : TITLE
  1567. T$(1)="Please select an option."
  1568. T$(4)="Remember, HELP is available!"
  1569. HELPBOX
  1570. M$(1)="Create/Amend Fixture List"
  1571. M$(2)="Load Fixture File"
  1572. M$(3)="Delete Fixture File"
  1573. M$(4)="Go Back To Main Menu"
  1574. MEN[4,3]
  1575. O=Param
  1576. If O=1 Then CFIX : Goto N
  1577. If O=2 Then LDFIX : Goto N
  1578. If O=3 Then CLFIX : Goto N
  1579. If O=4 Then Pop Proc
  1580. Goto N
  1581.  
  1582. End Proc
  1583. Procedure SVFIX
  1584. RESAVE:
  1585. If ALTERFLAG=0 Then Pop Proc
  1586. TITLE$="Save Fixture File" : TITLE
  1587. D$(1)="Normally, the fixture lists you have just created would be saved to disk"
  1588. D$(2)="ready for you to re-load at a later date."
  1589. D$(4)="We won't bother with that in the demo, as you're not really going to be making"
  1590. D$(5)="any predictions anyway."
  1591. DTEXT
  1592. End Proc
  1593. Procedure LDFIX
  1594. '
  1595. TITLE$="Load Fixture File" : TITLE
  1596. D$(1)="In the full version, this option would load a fixture file that you created during"
  1597. D$(2)="a previous session. This means that you can split the whole process of creating"
  1598. D$(3)="lists, making predictions & entering results over the course of a week."
  1599. D$(5)="As this demo isn't being used 'for real' there isn't a lot of point in including"
  1600. D$(6)="this feature, so it has been removed."
  1601. DTEXT
  1602. End Proc
  1603. Procedure CFIX
  1604. TITLE$="Fixture Lists" : TITLE
  1605. ALTERFLAG=0
  1606. If MLISTEXIST=1 Then Goto GTMLIST
  1607. T$(1)="Click on OK to continue ..." : HELPBOX
  1608. REQ[2,"There are no fixtures currently in memory.","","You can either create a new fixtures list, or","load an existing one from disk.",3,"NEW","CANCEL","LOAD"]
  1609. I=Param
  1610. If I=1 Then Pop Proc
  1611. If I<>2 Then Goto NI
  1612. FLOADED=0
  1613. LDFIX
  1614. If FLOADED=1 Then Goto GTMLIST
  1615. Pop Proc
  1616.  
  1617. NI:
  1618. LIST=21
  1619. Goto CLIST
  1620.  
  1621. GTMLIST:
  1622. TITLE$="Fixture Lists" : TITLE
  1623. T$(1)="Select a list to create/edit/view ..." : HELPBOX
  1624. M$(1)="Main List"
  1625.  
  1626. If PLEXIST=1 Then M$(2)="Pools List"
  1627. If PLEXIST=0 Then M$(2)="Pools List N/A"
  1628. For L=1 To 20
  1629. M$(L+2)=FXLN$(L)
  1630. Next L
  1631. M$(23)="Exit This Menu"
  1632. MEN[23,4]
  1633. O=Param
  1634. If O=23 Then SVFIX : Pop Proc
  1635. LIST=O
  1636. If LIST=1 Then LIST=23
  1637. If LIST=2 Then LIST=24
  1638. If LIST>2 Then LIST=LIST-2
  1639. If PLEXIST=0 and LIST=22 Then REQ[2,"There is no pools list available!","","The list is automatically created when 58 matches","have been 'ticked' in the Main-List.",1,"OK","",""] : Goto GTMLIST
  1640. GTN:
  1641. If MIL(LIST)=0 Then Goto NLI
  1642. ADN=0
  1643. VFIX
  1644. If ADN=0 Then Goto GTMLIST
  1645. If ADN=1 Then MTCH=MIL(LIST)+1 : Goto CLIST
  1646.  
  1647. NLI:
  1648. Paste Icon 145,67,13
  1649. Paste Icon 193,110,8
  1650. T$(1)="Please enter the new name for "+FXLN$(LIST)+"."
  1651. T$(4)="To abandon, enter the name as 'quit'."
  1652. HELPBOX
  1653. Ink 1,3
  1654. Text 205,100,"New Name For This Sub-List:"
  1655. GTTEXT[220,119,20,2,3]
  1656. If Lower$(Param$)="quit" Then Goto GTMLIST
  1657. If Param$="" Then BONG : Goto GTN
  1658. FXLN$(LIST)=Param$
  1659. Goto CLIST
  1660.  
  1661. CLIST:
  1662. CLEAR
  1663. TITLE$=FXLN$(LIST) : TITLE
  1664. If ADN=0 Then MTCH=1
  1665. If ADN=1 Then LM$="???"
  1666. ADN=0
  1667.  
  1668. CLOOP:
  1669. ID$=FXLN$(LIST)+" - Match"+Str$(MTCH)
  1670. ID2$=""
  1671. If MTCH>1 Then ID2$="Last one entered was "+LM$
  1672.  
  1673. PS=1 : POOLSTAT(MTCH)=0
  1674. GTTEAM[ID$]
  1675.  
  1676. If ESC=9 Then Goto CLOOP
  1677. If ESC=1 Then MTCH=MTCH-1
  1678. If ESC=1 and MTCH=0 and LIST=21 Then BING : Pop Proc
  1679. If ESC=1 and MTCH=0 Then Goto GTMLIST
  1680. If ESC=1 and MTCH>0 Then ID$=FXLN$(LIST)+" - Match"+Str$(MTCH) : ID2$="Last one entered was "+LM$ : ESC=0
  1681. CLOOPC:
  1682. CLEAR
  1683.  
  1684. Paste Icon 145,67,13
  1685. CLOOPB:
  1686. If MLISTEXIST=1 Then Goto SKIPA
  1687. Paste Icon 157,115,13+PS : Paste Icon 231,115,16
  1688. Reserve Zone 4
  1689. Set Zone 1,207,158 To 241,181
  1690. Set Zone 2,244,158 To 279,181
  1691. Set Zone 3,281,158 To 316,181
  1692. Set Zone 4,318,158 To 353,181
  1693. Goto SKIPB
  1694.  
  1695. SKIPA:
  1696. Paste Icon 193,115,16
  1697. Reserve Zone 4
  1698. Set Zone 1,10,10 To 20,20
  1699. Set Zone 2,225,158 To 260,181
  1700. Set Zone 3,262,158 To 297,181
  1701. Set Zone 4,300,158 To 334,181
  1702.  
  1703. SKIPB:
  1704. Ink 2,3
  1705. Text 160,82,ID$
  1706. Ink 1,3
  1707. TX$=TEAMA$+" -V- "+TEAMB$
  1708. Text(465-Len(TX$))/2,100,TX$
  1709. T$(1)="Please check the above carefully ..." : HELPBOX
  1710. X:
  1711. I$=Lower$(Inkey$)
  1712. If I$="" Then Goto CFM
  1713. If I$="p" Then Z=1 : Goto GTC
  1714. If I$="r" Then Z=2 : Goto GTC
  1715. If Asc(I$)=13 Then Z=4 : Goto GTC
  1716.  
  1717. CFM:
  1718. Z=Zone(X Mouse,Y Mouse)
  1719. If Mouse Click=0 Then Goto X
  1720.  
  1721.  
  1722. GTC:
  1723. If Z=0 Then Goto X
  1724. If Z=1 and MLISTEXIST=0
  1725.    BING
  1726.    If PS=1
  1727.       PS=2
  1728.       Goto N
  1729.    End If 
  1730.    If PS=2
  1731.       PS=1
  1732.    End If 
  1733. N:
  1734. Goto CLOOPB
  1735. End If 
  1736. If Z=2 Then Goto CLOOP
  1737. BING
  1738.  
  1739. T1FXL$(LIST,MTCH)=TEAMA$
  1740. T2FXL$(LIST,MTCH)=TEAMB$
  1741. POOLSTAT(MTCH)=PS
  1742.  
  1743. If Z=3
  1744.    BING
  1745.    T$(1)="Click on Yes or No." : HELPBOX
  1746.    REQ[2,"","Are you sure that there are no more fixtures","to be included in this list?","",2,"YES","NO",""]
  1747.    O=Param
  1748.    If O=1
  1749.       Goto CLOOPC
  1750.    End If 
  1751.    MIL(LIST)=MTCH
  1752. If MLISTEXIST=0
  1753.  
  1754.    Gosub MKPOOLS
  1755. End If 
  1756.  
  1757.    MLISTEXIST=1
  1758.    Goto GTMLIST
  1759. End If 
  1760. If Z=4
  1761.    BING
  1762.    Inc MTCH
  1763.    LM$=TEAMA$+" -v- "+TEAMB$
  1764.    Goto CLOOP
  1765. End If 
  1766. Pop Proc
  1767. MKPOOLS:
  1768. '
  1769. PM=1
  1770. For R=1 To MIL(21)
  1771. If POOLSTAT(R)=1 Then T1FXL$(22,PM)=T1FXL$(21,R) : T2FXL$(22,PM)=T2FXL$(21,R) : Inc PM
  1772. If PM=59 Then Goto NM
  1773.  
  1774. Next R
  1775.  
  1776. '
  1777. NM:
  1778. PLEXIST=1
  1779. If PM=59 Then MIL(22)=58
  1780. If PM<>59 Then MIL(22)=PM-1
  1781.  
  1782. PLEXIST=1
  1783. Return 
  1784.  
  1785.  
  1786.  
  1787.  
  1788. End Proc
  1789. Procedure VFIX
  1790. SM=0
  1791. MIL=MIL(LIST)
  1792. TITLE$=FXLN$(LIST) : TITLE
  1793. RESHOW:
  1794. T$(1)="If you want to alter a fixture, just click on it."
  1795. T$(2)="To add more fixtures to the list, click on 'Add More'"
  1796. T$(4)="Click on continue when finished viewing/amending this page."
  1797. HELPBOX
  1798. CLEAR
  1799. XEND=12
  1800. For R=1 To 12
  1801. If SM+R<=MIL Then M$(R)="Match"+Str$(R+SM) : CL$(R)=T2FXL$(LIST,SM+R) : BL$(R)=T1FXL$(LIST,SM+R)
  1802. If SM+R>MIL Then XEND=R-1 : Exit 
  1803. Next R
  1804. If MIL<12 Then XEND=MIL
  1805. BX[29,5,XEND,1,2]
  1806. For R=1 To 12 : M$(R)=BL$(R) : Next R
  1807. BX[149,6,XEND,3,7]
  1808. For R=1 To 12 : M$(R)=CL$(R) : Next R
  1809. BX[368,6,XEND,3,7]
  1810.  
  1811. M$(1)="Continue ..." : BX[29,165,1,1,2]
  1812. M$(1)="Add More" : BX[473,165,1,1,2]
  1813. Reserve Zone 14
  1814. For R=1 To 12
  1815. Set Zone R,144,49+(R*13) To 421,60+(R*13)
  1816. Next R
  1817. Set Zone 13,144,222 To 199,233
  1818. Set Zone 14,367,223 To 421,233
  1819. '
  1820. X:
  1821. Z=Zone(X Mouse,Y Mouse)
  1822. If Mouse Click=0 Then Goto X
  1823. If Z=13 Then Goto CONT
  1824. If Z=14 Then ADN=1 : Pop Proc
  1825. If Z=0 Then Goto X
  1826. If Z>XEND Then Goto X
  1827.  
  1828. BING
  1829. ID$="Amending match"+Str$(SM+Z)+" - "+T1FXL$(LIST,SM+Z)+" v "+T2FXL$(LIST,SM+Z)
  1830. ZEB=Z
  1831. NOCHK=1
  1832. GTTEAM[ID$]
  1833. NOCHK=0
  1834. T1FXL$(LIST,SM+ZEB)=TEAMA$ : T2FXL$(LIST,SM+ZEB)=TEAMB$
  1835. Goto RESHOW
  1836. CONT:
  1837. BING
  1838. SM=SM+12
  1839. If SM>=MIL Then CLEAR : Pop Proc
  1840. Goto RESHOW
  1841. End Proc
  1842. Procedure CLFIX
  1843. TITLE$="Delete Fixture Lists" : TITLE
  1844. T$(1)="Select a Fixture List File to delete."
  1845. T$(2)="Please remember that you cannot get back what you delete!"
  1846. HELPBOX
  1847. MI=2
  1848. M$(1)="Fixtures In Memory"
  1849. If Exist("pro-Football:data/Fixture File 1")=True Then M$(MI)="Fixture File 1" : Inc MI
  1850. If Exist("pro-Football:data/Fixture File 2")=True Then M$(MI)="Fixture File 2" : Inc MI
  1851. If Exist("pro-Football:data/Fixture File 3")=True Then M$(MI)="Fixture File 3" : Inc MI
  1852. M$(MI)="Don't Delete"
  1853. MEN[MI,9]
  1854. O=Param
  1855. If O=MI Then Pop Proc
  1856. FILE$="Pro-Football:data/"+M$(O)
  1857. '
  1858. HELPBOX
  1859. REQ[2,"WARNING!","","Deleted fixture lists cannot be brought back to life!","Are you sure you want to delete "+M$(O)+"?",2,"YES","NO",""]
  1860. Y=Param
  1861. If Y=1 Then Pop Proc
  1862.  
  1863. T$(1)="Please Wait ..." : HELPBOX
  1864. REQ[3,"","Deleting "+M$(O),"","",0,"","",""]
  1865.  
  1866. If FILE$="Pro-Football:data/Fixtures In Memory" Then Goto MEMDEL
  1867. Kill FILE$
  1868. Pop Proc
  1869.  
  1870. MEMDEL:
  1871. For L=1 To 20
  1872. FXLN$(L)="Sub List"+Str$(L)
  1873. MIL(L)=0
  1874. For M=1 To 100
  1875. T1FXL$(L,M)=""
  1876. T2FXL$(L,M)=""
  1877. Next M
  1878. Next L
  1879. MIL(21)=0
  1880. MIL(22)=0
  1881. MLISTEXIST=0 : PLEXIST=0
  1882. End Proc
  1883. Procedure PFX
  1884. For M=1 To MIL(LIST)
  1885. F1=0 : F2=0
  1886.     For LG=1 To 25
  1887.         If Left$(TEAM$(LG,1),13)="Un-named Team" Then Goto NLG
  1888.         For T=1 To 25
  1889.           If F1=1 Then Goto CH2
  1890.           If T1FXL$(LIST,M)<>TEAM$(LG,T) Then Goto CH2
  1891.           T1LGP(LIST,M)=LGPOS(LG,T) : MLG1(LIST,M)=LG
  1892.           T1M1(LIST,M)=TDM1(LG,T)
  1893.           T1M2(LIST,M)=TDM2(LG,T)
  1894.  
  1895.           F1=1 : Goto OK
  1896.  
  1897.           CH2:
  1898.           If F2=1 Then Goto RP
  1899.           If T2FXL$(LIST,M)<>TEAM$(LG,T) Then Goto RP
  1900.           T2LGP(LIST,M)=LGPOS(LG,T) : MLG2(LIST,M)=LG
  1901.           T2M1(LIST,M)=TDM1(LG,T)
  1902.           T2M2(LIST,M)=TDM2(LG,T)
  1903.           F2=1 : Goto OK
  1904.  
  1905.           OK:
  1906.           If F1=1 and F2=1 Then Goto NM
  1907.  
  1908.         RP:
  1909.         Next T
  1910.     NLG:
  1911.     Next LG
  1912.  
  1913. NM:
  1914. Next M
  1915.  
  1916. NL:
  1917.  
  1918. End Proc
  1919. Procedure GTTEAM[ID$]
  1920.    CLEAR
  1921.    ALTERFLAG=1
  1922.    Paste Icon 20,25,12
  1923.    M$(1)=""
  1924.  
  1925.    Ink 4,0
  1926.    Text 300,185,"-v-"
  1927.    Reserve Zone 39
  1928.    Restore ZDAT
  1929.    For R=1 To 29
  1930.       Read X1(R),Y1(R),X2,Y2
  1931.       Set Zone R,X1,Y1 To X2,Y2
  1932.    Next R
  1933.    For R=1 To 10
  1934.       Set Zone R+29,319,63+(R*13) To 426,74+(R*13)
  1935.    Next R
  1936.  
  1937.    ZDAT:
  1938.    Data 140,69,166,96,166,69,194,96,194,69,221,96,221,69,248,96,248,69,275,96,275,69,302,96
  1939.    Data 140,96,166,124,166,96,194,124,194,96,221,124,221,96,248,124,248,96,275,124,275,96,302,124
  1940.    Data 140,124,166,152,166,124,194,152,194,124,221,152,221,124,248,152,248,124,275,152,275,124,302,152
  1941.    Data 140,152,166,180,166,152,194,180,194,152,221,180,221,152,248,180,248,152,275,180,275,152,302,180
  1942.    Data 140,180,166,208,166,180,194,208,194,180,221,208,221,180,248,208,248,180,275,208
  1943.    TSF=0
  1944.  
  1945.    T$(1)=ID$
  1946.    T$(2)=ID2$
  1947.    T$(4)="Select a team ..." : HELPBOX
  1948.    REDO:
  1949.  
  1950.    Ink 0
  1951.    Bar 370,15 To 640,175
  1952.    M$(1)="                             "
  1953.    If TSF=0 Then BX[75,163,1,4,6]
  1954.    BX[320,163,1,4,6]
  1955.  
  1956.    NONE:
  1957.    OZ=0 : NAME$="" : Q=0
  1958.    X:
  1959.    I$=""
  1960.    KP=0
  1961.    I$=Lower$(Inkey$)
  1962.    If Asc(I$)=32 Then Z=27 : KP=1
  1963.    If Asc(I$)>96 and Asc(I$)<123 Then Z=Asc(I$)-96 : KP=1
  1964.    NAMES=Q
  1965.    If KP=1 Then Goto S1
  1966.    Z=Zone(X Mouse,Y Mouse)
  1967.    S1:
  1968.    If Z<>OZ and Z<30 Then Bob 1,X Screen(X1(Z))-11,Y Screen(Y1(Z))-4,1 : OZ=Z
  1969.    If KP=1 Then Goto S2
  1970.    If Mouse Click=0 Then Goto X
  1971.    If Z=0 Then Goto X
  1972.    S2:
  1973.    Q=0
  1974.  
  1975.  
  1976.    If Z<27 and Z>0 Then NAME$=NAME$+Chr$(Z+64)
  1977.    If Z=27 Then NAME$=NAME$+" "
  1978.    ESC=0
  1979.    If Z=29 and Len(NAME$)<1 and TSF=0 Then ESC=1 : Pop Proc
  1980.  
  1981.    If Z=29 Then ESC=9 : Pop Proc
  1982.    If Z=28 and Len(NAME$)<=1 Then Goto REDO
  1983.    If Z=28 and Len(NAME$)>1 Then NAME$=Left$(NAME$,(Len(NAME$)-1))
  1984.    If Z>29 Then Gosub NSTANT : Q=NAMES : Goto X
  1985.  
  1986.    M$(1)=NAME$+"  "
  1987.    If TSF=0 Then BX[75,163,1,4,6]
  1988.    If TSF=1 Then BX[320,163,1,4,6]
  1989.    LSF=Len(NAME$)
  1990.  
  1991.    If TSF=1 Then Goto SL
  1992.    For L=1 To 25
  1993.       For T=1 To TEAMS(L)
  1994.          If Lower$(TEAM$(L,T))="un-named team" Then Goto LP
  1995.          If Lower$(Left$(TEAM$(L,T),LSF))=Lower$(NAME$) Then Inc Q : M$(Q)=TEAM$(L,T)
  1996.  
  1997.       Next T
  1998. LP:
  1999.       Next L
  2000.    Goto CONT
  2001.    SL:
  2002.    For L=1 To 25
  2003.    For T=1 To TEAMS(L)
  2004.       If Lower$(TEAM$(L,T))="un-named team" Then Goto LP2
  2005.       If Lower$(TEAM$(L,T))=Lower$(TEAMA$) Then Goto LP3
  2006.       If Lower$(Left$(TEAM$(L,T),LSF))=Lower$(NAME$) Then Inc Q : M$(Q)=TEAM$(L,T) : If Q>10 Then Goto CONT
  2007. LP3:
  2008.    Next T
  2009. LP2:
  2010. Next L
  2011.  
  2012.    CONT:
  2013.  
  2014.    If Q=0 Then BONG : Goto REDO
  2015.    If Q=1 Then Goto GTTEAM1
  2016.    BING
  2017.    Ink 0
  2018.   Bar 370,15 To 640,175
  2019.    If Q>10 Then Goto X
  2020.    BX[378,20,Q,2,7]
  2021.  
  2022.    Goto X
  2023.    GTTEAM1:
  2024.    For L=1 To 13
  2025.       For T=1 To TEAMS(L)
  2026.          If Lower$(TEAM$(L,T))=Lower$(M$(Q)) Then CURRL=L : Goto FI
  2027.       Next T
  2028.    Next L
  2029.    FI:
  2030.  
  2031.    Inc TSF
  2032.    ACCEPT
  2033.    Ink 0 : Bar 370,15 To 640,175
  2034.    M$(1)=M$(Q)
  2035.    If TSF=1 Then BX[75,163,1,4,7] : TEAMA$=M$(Q)
  2036.    If MLISTEXIST=0 Then Goto OK2
  2037.    If NOCHK=1 Then Goto SKIPCHK
  2038.    For R=1 To 100
  2039.       If M$(Q)=T1FXL$(21,R)
  2040.          TEAMB$=T2FXL$(21,R)
  2041.          TSF=2
  2042.          Pop Proc
  2043.       End If 
  2044.    Next R
  2045.  
  2046.    SKIPCHK:
  2047.    OK2:
  2048.    If TSF=2 Then BX[320,163,1,4,7] : TEAMB$=M$(Q)
  2049.    If TSF=1 Then T$(1)=ID$ : T$(3)="And the other team ..." : HELPBOX : Goto NONE
  2050.    Pop Proc
  2051.  
  2052.    NSTANT:
  2053.    If NAMES=0 Then Return 
  2054.    If Z>NAMES+29 Then Return 
  2055.  
  2056.    M$(Q)=M$(Z-29)
  2057.    Goto GTTEAM1
  2058.  
  2059.    Return 
  2060.  
  2061.  
  2062.  
  2063.  
  2064.  
  2065. End Proc
  2066. '----------------------------------------------
  2067. Procedure DTEXT
  2068. CLEAR
  2069. Paste Icon 20,25,10
  2070. Ink 6,0
  2071. For R=1 To 15
  2072. Text 20,75+(R*10),D$(R)
  2073. D$(R)=""
  2074. Next R
  2075. T$(1)="Click mouse or press a key to continue ..." : HELPBOX
  2076. Clear Key 
  2077. KOM:
  2078. I$=Inkey$
  2079. If Mouse Click=1 Then BING : Pop Proc
  2080. If I$="" Then Goto KOM
  2081. BING
  2082. End Proc
  2083. Procedure GTTEXT[X,Y,L,F,B]
  2084. REDO:
  2085. Clear Key 
  2086. Ink F,B
  2087. C=X
  2088. TX$=""
  2089. CAP=1
  2090. NL:
  2091. If Len(TX$)<1 Then CAP=1
  2092. Text C,Y,TX$+"_  "
  2093. GTKEY:
  2094. I$=Lower$(Inkey$)
  2095. If I$="" Then Goto GTKEY
  2096. If Asc(I$)=8 Then TX$=Left$(TX$,Len(TX$)-1) : CAP=0 : Goto NL
  2097. If Asc(I$)=13 Then BING : Goto RETP
  2098. If Asc(I$)=27 Then BING : EX=1 : Pop Proc
  2099. If Asc(I$)=32 Then CAP=1 : Goto OK
  2100. If Asc(I$)<48 Then Goto GTKEY
  2101. If Asc(I$)<58 Then Goto OK
  2102. If Asc(I$)<97 Then Goto GTKEY
  2103. If Asc(I$)>122 Then Goto GTKEY
  2104. OK:
  2105. If Len(TX$)+1>L Then BONG : Goto GTKEY
  2106. If CAP=1 and Asc(I$)>60 Then I$=Chr$(Asc(I$)-32) : CAP=0
  2107. TX$=TX$+I$
  2108. Goto NL
  2109. RETP:
  2110. Text C,Y,TX$+"    "
  2111. End Proc[TX$]
  2112. Procedure GN[X,Y,M,L,F,B]
  2113. REDO:
  2114. Clear Key 
  2115. Ink F,B
  2116. C=X
  2117. TX$=""
  2118. NL:
  2119. Text C,Y,TX$+"_  "
  2120. If Len(TX$)=L Then BING : Goto RETP
  2121. GTKEY:
  2122. I$=Lower$(Inkey$)
  2123. If I$="" Then Goto GTKEY
  2124. If Asc(I$)=8 Then TX$=Left$(TX$,Len(TX$)-1) : Goto NL
  2125. If Asc(I$)=13 Then BING : Goto RETP
  2126. If Asc(I$)<48 Then Goto GTKEY
  2127. If Asc(I$)>57 Then Goto GTKEY
  2128. OK:
  2129. TX$=TX$+I$
  2130. If Val(TX$)>M Then BONG : Goto REDO
  2131. Goto NL
  2132. RETP:
  2133. Text C,Y,TX$+"   "
  2134. End Proc[TX$]
  2135. Procedure BX[X,Y,N,T,I]
  2136. For R=1 To N
  2137. If T=4 Then T=5 : Y=Y-1
  2138. Paste Icon X,Y+(R*13),T+6
  2139. If T=1 Then Ink I,0
  2140. If T=2 Then Ink I,3
  2141. If T=3 Then Ink I,5
  2142. If T=5 Then Ink I,0
  2143. Text X+15,(Y+10)+(R*13),M$(R)
  2144. Next R
  2145.  
  2146. End Proc
  2147. Procedure REQ[T,L1$,L2$,L3$,L4$,B,B1$,B2$,B3$]
  2148. CLEAR
  2149. ACCEPT
  2150. L$(1)=L1$ : L$(2)=L2$ : L$(3)=L3$ : L$(4)=L4$
  2151.  
  2152. Paste Icon 110,45,1
  2153. Paste Icon 422,52,3+T
  2154. For R=1 To 4
  2155. L=Text Length(L$(R))
  2156. Ink 2,3
  2157.  
  2158. Text 310-L/2,101+(R*8),L$(R)
  2159. Next R
  2160. If B=0 Then Goto WFMP
  2161. Paste Icon 110,151,2
  2162. Reserve Zone 3
  2163. Set Zone 2,197,200 To 227,212
  2164. Set Zone 3,267,199 To 298,212
  2165. Set Zone 1,342,199 To 373,212
  2166. If B>0 Then Paste Icon 425,155,3
  2167. If B>1 Then Paste Icon 135,155,3
  2168. If B>2 Then Paste Icon 276,155,3
  2169. GM:
  2170. Z=Zone(X Mouse,Y Mouse)
  2171. If Z=1 Then Ink 6,3
  2172. If Z<>1 Then Ink 1,3
  2173. Text 458-(Text Length(B1$))/2,167,B1$
  2174. If Z=2 Then Ink 6,3
  2175. If Z<>2 Then Ink 1,3
  2176. Text 168-(Text Length(B2$))/2,167,B2$
  2177. If Z=3 Then Ink 6,3
  2178. If Z<>3 Then Ink 1,3
  2179. Text 309-(Text Length(B3$))/2,167,B3$
  2180. If Asc(Inkey$)=13 Then BING : Z=3 : Goto K
  2181. If Mouse Click=0 Then Goto GM
  2182. If Z=0 Then Goto GM
  2183. If Z>B Then Goto GM
  2184. Goto DN
  2185.  
  2186. WFMP:
  2187. 'If Mouse Click=0 Then Goto WFMP 
  2188. DN:
  2189. BING
  2190. If B<>0 Then CLEAR
  2191.  
  2192. If Z=2 Then Z=1 : Goto K
  2193. If Z=3 Then Z=2 : Goto K
  2194. If Z=1 Then Z=3 : Goto K
  2195. K:
  2196. End Proc[Z]
  2197. Procedure BING
  2198. Sam Play 5
  2199. End Proc
  2200. Procedure BONG
  2201. Sam Play 3
  2202. End Proc
  2203. Procedure CLEAR
  2204. Ink 0
  2205. Bar 0,15 To 640,195
  2206. End Proc
  2207. Procedure TITLE
  2208. Ink 7,3
  2209. Text 200,10,"                                      "
  2210. Text(313-Text Length(TITLE$))/2,10,TITLE$
  2211. End Proc
  2212. Procedure HELPBOX
  2213. Ink 4
  2214. Bar 20,205 To 464,239
  2215. Ink 1,4
  2216. For R=1 To 4
  2217. Text 25,205+(R*8),T$(R)
  2218. T$(R)=""
  2219. Next R
  2220. End Proc
  2221. Procedure HLP[P]
  2222. Screen Open 2,640,256,2,Hires
  2223. Cls 0
  2224.  
  2225. H$=Right$(Str$(P),Len(Str$(P))-1)
  2226. F$="pro-football:help/"+H$
  2227. Read Text F$
  2228.  
  2229. Screen Close 2
  2230. End Proc
  2231. Procedure MEN[N,HP]
  2232.  
  2233. MENU:
  2234. CLEAR
  2235. Reserve Zone N
  2236. D=0
  2237. If N>13 Then D=1
  2238. For R=1 To N
  2239. If D=0 Then XPOS=200
  2240. If D=1 and R<14 Then XPOS=75
  2241. If D=1 and R>13 Then XPOS=330
  2242. If D=0 Then Y=((185-N*13)/2)+(R*13)
  2243. If D=1 and R<14 Then Y=((185-13*13)/2)+(R*13)
  2244. If D=1 and R>13 Then Y=((185-13*13)/2)+((R-13)*13)
  2245. Set Zone R,XPOS,Y To XPOS+220,Y+13
  2246. Paste Icon XPOS,Y,8
  2247. Next R
  2248. X:
  2249. For R=1 To N
  2250. If Key State(95)=True and HP<>9 Then BING : HLP[HP] : Goto MENU
  2251. If D=0 Then XPOS=313 : Y=((185-N*13)/2)+(R*13)
  2252. If D=1 and R<14 Then XPOS=188 : Y=((185-13*13)/2)+(R*13)
  2253. If D=1 and R>13 Then XPOS=443 : Y=((185-13*13)/2)+((R-13)*13)
  2254. Ink 7,3
  2255. If R=Z Then Ink 6,3
  2256. If D=0 Then Text((XPOS-Text Length(M$(R)))/2),Y+9,M$(R)
  2257. If D=1 and R<14 Then Text((XPOS)-Text Length(M$(R)))/2,Y+9,M$(R)
  2258. If D=1 and R>13 Then Text((XPOS)-Text Length(M$(R)))/2,Y+9,M$(R)
  2259. Next R
  2260. If Key State(95)=True and HP<>9 Then BING : HLP[HP] : Goto MENU
  2261. If Key State(18)=True and TEAMMEN=1 Then EMOD=1 : Pop Proc
  2262. If Key State(89)=True and TEAMMEN=1 Then EMOD=2 : Pop Proc
  2263. Z=Hzone(X Mouse,Y Mouse)
  2264. If Mouse Click=0 Then Goto X
  2265. If Z=0 Then Goto X
  2266. BING
  2267.  
  2268. End Proc[Z]
  2269. Procedure INIT
  2270. T$(1)="Tread carefully!"
  2271. T$(2)="If in doubt, then CANCEL and read the User-Guide." : HELPBOX
  2272. REQ[3,"WARNING - POTENTIALLY DISASTROUS!","This function resets the league tables - permanently!","You can either reset ALL (names & form data),","or just SOME (form data only, leaving names intact).",3,"CANCEL","ALL","SOME"]
  2273. O=Param
  2274. If O=3 Then Pop Proc
  2275. TYPE=O
  2276. REQ[1,"","Are you ABSOLUTELY sure?","If in any doubt at all, select CANCEL.","",2,"CANCEL","SURE",""]
  2277. O=Param
  2278. If O=3 Then Pop Proc
  2279. If TYPE=2 Then Goto P2
  2280. T$(1)="Resetting Leagues ..." : T$(3)="When done, program will restart." : HELPBOX
  2281. Open Out 1,"pro-football:data/leagues"
  2282. For R=1 To 25
  2283. Print #1,"Un-Named League"
  2284. Print #1,25
  2285. LG$(R)="Un-Named League"
  2286. For N=1 To 25
  2287. Print #1,"Un-Named Team"
  2288. Print #1,"00000099999999"
  2289. TEAM$(R,N)="Un-Named Team"
  2290. Next N
  2291. Next R
  2292. Close 1
  2293. SETUP : MAINMENU
  2294.  
  2295. P2:
  2296. T$(1)="Resetting Tables ..." : T$(3)="When done, program will restart." : HELPBOX
  2297. Open Out 1,"pro-football:data/leagues"
  2298. For R=1 To 25
  2299. Print #1,LG$(R)
  2300. Print #1,TEAMS(R)
  2301. For N=1 To 25
  2302. Print #1,TEAM$(R,N)
  2303. Print #1,"00000099999999"
  2304. Next N
  2305. Next R
  2306. Close 1
  2307. SETUP : MAINMENU
  2308.  
  2309.  
  2310. End Proc
  2311. Procedure ACCEPT
  2312. Sam Play 4
  2313. End Proc
  2314. Procedure DCODE
  2315. For R=1 To 25
  2316. For N=1 To 25
  2317. F$=FM$(R,N)
  2318. TDP(R,N)=Val(Left$(F$,2))
  2319. TDPTS(R,N)=Val(Mid$(F$,3,2))
  2320. TDG(R,N)=Val(Mid$(F$,5,2))
  2321. TDM1(R,N)=Val(Mid$(F$,7,1))
  2322. TDM2(R,N)=Val(Mid$(F$,8,1))
  2323. Next N
  2324. Next R
  2325. End Proc
  2326. Procedure NCODE
  2327. For R=1 To 25
  2328. For N=1 To 25
  2329. F$=""
  2330. TDP$=Right$(Str$(TDP(R,N)),2)
  2331. TDPTS$=Right$(Str$(TDPTS(R,N)),2)
  2332. TDG$=Right$(Str$(TDG(R,N)),2)
  2333. TDM1$=Right$(Str$(TDM1(R,N)),1)
  2334. TDM2$=Right$(Str$(TDM2(R,N)),1)
  2335.  
  2336. D$="9"
  2337. F$=TDP$+TDPTS$+TDG$+TDM1$+TDM2$
  2338. FM$(R,N)=F$
  2339. Next N
  2340. Next R
  2341. End Proc
  2342. Procedure PLEAGUE
  2343.  
  2344. For L=1 To 15
  2345.  
  2346. If TEAM$(L,1)="Un-Named Team" Then Goto SK
  2347. Lprint 
  2348. Lprint 
  2349. Lprint "   "; Using "~~~~~~~~~~~~~~~~~~~";LG$(L);"   Pld  Pts  Gls    H1 H2 H3 A1 A2 A3 M1 M2"
  2350. Lprint 
  2351. For T=1 To TEAMS(L)
  2352. Lprint "   "; Using "~~~~~~~~~~~~~~~~~~~";TEAM$(L,T);
  2353. Lprint Using "#####";TDP(L,T); Using "#####";TDPTS(L,T); Using "#####";TDG(L,T);
  2354. Lprint Using "###";TDM1(L,T); Using "###";TDM2(L,T)
  2355. Next T
  2356. SK:
  2357. Next L
  2358.  
  2359. End Proc
  2360.  
  2361. '-----------------------------------------------